- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- windows10
- ³nÅ骩¥»
- vb.net
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2022-8-27
- ³Ì«áµn¿ý
- 2023-12-5
|
- Public Class myPrinter
- Friend TextToBePrinted As String
- Public Sub prt(ByVal text As String)
- TextToBePrinted = text
- Dim prn As New Printing.PrintDocument
- Using (prn)
- prn.PrinterSettings.PrinterName = "PrinterName"
- AddHandler prn.PrintPage,
- AddressOf Me.PrintPageHandler
- prn.Print()
- RemoveHandler prn.PrintPage,
- AddressOf Me.PrintPageHandler
- End Using
- End Sub
- Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)
- Dim myFont As New Font("Microsoft San Serif", 10)
- args.Graphics.DrawString(TextToBePrinted, New Font(myFont, FontStyle.Regular), Brushes.Black, 50, 50)
- End Sub
- End Class
½Æ»s¥N½X ·Q½Ð°Ý§ÚÀ³¸Ó¦p¦ó¤~¯à§â
prn.PrinterSettings.PrinterName = "PrinterName"
§ï¦¨
prn.PrinterSettings.PrinterName = TextBox1.Text
±`¸Õ¤F§ï¦ý³£¬O¿ù»~¥¼«Å§i? |
|