Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim printer As String = "EPSON TM-T88IV ReceiptE4" PrintDocument1.PrinterSettings.PrinterName = printer Dim pkInstalledPrinters As String For i As Integer = 0 To PrinterSettings.InstalledPrinters.Count - 1 pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i) If pkInstalledPrinters = printer Then MsgBox("ok") End If Next i Dim fontCAP As PrivateFontCollection = New PrivateFontCollection fontCAP.AddFontFile(locfichier10 & "code128.ttf") Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular) Dim font01 = New Font("Arial", 10) rtbTicket.Text = "Bonjour" e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25) e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55) End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'affiche les imprimantes Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters() For x As Integer = 0 To printers.Count - 1 ListBox1.Items.Add(printers(x)) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'sélectionne l'imprimante par défaut Dim net As Object net = CreateObject("WScript.Network") net.SetDefaultPrinter(ListBox1.SelectedItem) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim net As Object net = CreateObject("WScript.Network") net.SetDefaultPrinter("EPSON TM-T88IV ReceiptE4")
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim printer As String = "EPSON TM-T88IV ReceiptE4" Dim net As Object net = CreateObject("WScript.Network") net.SetDefaultPrinter("EPSON TM-T88IV ReceiptE4") Dim fontCAP As PrivateFontCollection = New PrivateFontCollection fontCAP.AddFontFile(locfichier10 & "code128.ttf") Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular) Dim font01 = New Font("Arial", 10) rtbTicket.Text = "Bonjour" e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25) e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55) End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
PrintDocument1.PrinterSettings.PrinterName = "EPSON TM-T88IV ReceiptE4"
Dim fontCAP As PrivateFontCollection = New PrivateFontCollection
fontCAP.AddFontFile(locfichier10 & "code128.ttf")
Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular)
Dim font01 = New Font("Arial", 10)
rtbTicket.Text = "Bonjour"
e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)
e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)
End Sub
PrintDocument1.print