Программирование на Visual Basic

05. Пример показывает использование файла "PRN" из Microsoft Access. Под ним в операционной системе хранится принтер, присоединенный к текущему компьютеру. Эти примеры выгружают данные на принтер, шрифт и т.п. используя разные варианты

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