Private Sub Комманда1_Click()
Printer.ScaleMode = 6 ' Задаем режим "Миллиметры"
Call FUN_Orientation_PAGE_Landscape
Call FUN_PAPER_SIZE
Call FUN_Line_Font(11, False, False, False)
Printer.CurrentX = 100
Printer.CurrentY = 100
FUN_Line_string ""
Printer.EndDoc
End Sub
Public Function FUN_Copies(STR_Copies As Long)
' копии
Printer.Copies = STR_Copies ' количество копий
End Function
Public Function FUN_Orientation_PAGE_Landscape()
' ориентация ландшафт
'Printers.Orientation = vbPRORLandscape
End Function
Public Function FUN_Orientation_PAGE_Portrait()
' ориентация
'Printers.Orientation = vbPRORPortrait
End Function
Public Function FUN_PAPER_SIZE()
' Для того чтобы установить размер бумаги, _
на которой идет печать, необходимо _
воспользоваться свойством PaperSize. _
Пример: vbPRPSA4 - A4
'Printers.PaperSize = 9 'vbPRPSA4
End Function
Public Function FUN_Line_Font(str_SIZE As Long, _
str_FontBold As Boolean, str_FontItalic As Boolean, _
str_FontStrikethru As Boolean)
'FontBold, FontItalic, FontStrikethru, FontUnderline. _
Эти параметры могут принимать логические _
значение True или False.
Printer.FontName = "Arial CYR" 'Задает тип шрифта
'Printer.FontName = "Times New Roman" 'Задает тип шрифта
Printer.FontSize = str_SIZE '48 - задает размер шрифта
End Function
Public Function FUN_Line_string(str_STR As String)
' ПЕЧАТЬ СТРОКИ
Printer.Print str_STR
End Function
Public Function FUN_NEXT_PAGE()
'требуется начать печать с новой страницы. _
Для этого имеется метод
Printer.NewPage
End Function
Public Function FUN_STOP_DOC()
' удалить задание из принтера
Printer.KillDoc
End Function
Public Function FUN_Line_HOR(x1 As Long, y1 As Long, _
x2 As Long, y2 As Long)
' горизонтальная линия длинной str_LEN
Printer.Line (x1, y1)-(x2, y2)
'рисует линию начинающуюся в точке x=100 и y=100, _
а заканчивающуюся в точке x2=200 и y2=200
End Function
Public Function FUN_Line_Cirkle(x1 As Long, y1 As Long, я As Long)
Printer.Circle (x1, y1), z
'рисует круг с центром в точке x=200 и y=200 _
радиусом 100.
End Function
Public Function FUN_Grapfic(x1 As Long, y1 As Long)
Printer.PaintPicture objPic, x1, y1
'Это строчка кода печатает предварительно _
загруженный графический объект objPic со _
смещением от начала страницы на x1 пикселей _
по горизонтали и y1 по вертикали.
End Function
Public Function FUN_PAPER_KACHESTVO()
'Для установки качества печати _
свойство принтера PrintQuality. _
Пример использования данного свойства: vbPRPQLow НИЗКОЕ КАЧЕСТВО
Printers.PrintQuality = vbPRPQLow
' Всего существует четыре типа качества печати, _
которые всем хорошо известны: _
vbPRPQDraft, vbPRPQLow, vbPRPQMedium, vbPRPQHigh.
End Function
|
