مساعدة في الطباعة

أخي العزيز gmushtaha أعتقد بأن هذا قد يفيدك:

code:

Private Sub Command1_Click()

Printer.Print ""

Printer.FontSize = Text1.FontSize

Printer.FontName = Text1.FontName

Printer.ForeColor = Text1.ForeColor

If Text1.FontBold = True Then

Printer.FontBold = True

ElseIf Text1.FontItalic = True Then

Printer.FontItalic = True

ElseIf Text1.FontUnderline = True Then

Printer.FontUnderline = True

End If

Printer.Print Text1.Text

End Sub

أخوك : سعد