كود طباعة

وضح اكثر:confused: :confused:

عملت فورم وبداخله مربع نص text ....

اريد للمستخدم عندما يكتب اي حاجة في النص ويضغط زر طابعة تطبع الطابعه كل ما وجد داخل النص...ما هو الكود الذي اكتبه لهذا الزر commnad

جرب هذا الكود ;) ;) ;)

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

اذا مافهمت ايش الي صار قولي وانا اشرح لك الكود

تحياتي

:cool: الدولار:cool: