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

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\08 Отчеты\la_report1.mdb
 Язык интерфейса: Русский

   

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


Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access