И второе, хоть убейте не пойму, как заставить Printer напечатать фон лейбла.
- Код: Выделить всё
Private Sub PrintingForm()
Printer.ScaleMode = vbMillimeters
Printer.ScaleWidth = LabelForm.Width
Printer.ScaleHeight = LabelForm.Height
Printer.PaintPicture LabelForm.Image, 0, 0
Dim ctl As Control
For Each ctl In LabelForm.Controls
If TypeOf ctl Is Label Then
Printer.font.Name = ctl.font.Name
Printer.font.Size = ctl.font.Size
Printer.font.Bold = ctl.font.Bold
Printer.font.Italic = ctl.font.Italic
Printer.CurrentX = ctl.Left
Printer.CurrentY = ctl.Top
Printer.Print ctl.Caption
End If
Next ctl
Printer.EndDoc
End Sub
Вот что выходит при печати на XPS принтер
- pic.png (21.3 Кб) Просмотров: 5039
