|
Private Sub Report_Open(Cancel As Integer)
Dim ID As Byte
On Error GoTo 999
If MsgBox("Распечатать данные ?" & Chr(13) & "/Команды печати закоментированы/", _
vbOKCancel + vbExclamation, "Печать") = vbOK Then
MsgBox ("1. Проверка подчеркивания")
'1. Проверка режима подчеркивания у принтера
' При вводе русских символов их надо вести в ДОСовской кодировке
'ID = FreeFile
'Open "c:\Epson_test.txt" For Output As #ID
'Open "c:\Epson_test.txt" For Binary Access Write As #ID
'Write #ID, Chr(27) & "-" & Chr(1) & "Test-underline" & Chr(27) & "-" & Chr(0)
'Close #ID
' FileCopy "Epson_test.txt", "PRN"
MsgBox ("2. Загрузка шрифта")
'2. Загрузка DOS - драйвера. Возьмите у поставщика или из Интернета
'FileCopy "c:\Epson_Font_Driver", "PRN"
MsgBox ("3. Печать отчета")
'3. Настройте принтер на DRAFT-режим через кнопки управления и далее
' отпечатайте отчет в ДОСовской кодировке
'DoCmd.OutputTo acOutputReport, "Пример 5", acFormatTXT, "PRN"
End If
Exit Sub
999:
MsgBox Err.Description
Err.Clear
End Sub
|
|