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

Все примеры 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