Hallo,
Ich habe folgenden Problem:
Ich habe eine Brother QL-500 und möchte gerne eine Barcode (Klein) ausdrucken. Habe mir extra 29mmx30.48m Band besorgt. Alles schön und gut er durckt alles das ist kein Problem, doch er ist sehr verschwenderisch. Ich würde Maximal 29mmx25mm (eigendlich noch weniger) benötigen doch der Drucker druckt den kleinen Barcode und fährt vor als hätte er 29mmx90mm Band eingesetzt. Was kann man dagegen tuen vergesse ich was. Habe schon viele Methoden versucht aktuell benutzte ich diese.
Dazu zu sagen Das Document befindet sich auf Form3 und die Public Sub EtikettDrucken befindet sich in eine Module was von mehreren Formen aufgerufen wird.
Kann mir da wer weiterhelfen?[font='Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap; background-color: rgb(252, 253, 254)']Public [/font]Sub[font='Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap; background-color: rgb(252, 253, 254)'] EtikettDrucken[/font]
Ich habe folgenden Problem:
Ich habe eine Brother QL-500 und möchte gerne eine Barcode (Klein) ausdrucken. Habe mir extra 29mmx30.48m Band besorgt. Alles schön und gut er durckt alles das ist kein Problem, doch er ist sehr verschwenderisch. Ich würde Maximal 29mmx25mm (eigendlich noch weniger) benötigen doch der Drucker druckt den kleinen Barcode und fährt vor als hätte er 29mmx90mm Band eingesetzt. Was kann man dagegen tuen vergesse ich was. Habe schon viele Methoden versucht aktuell benutzte ich diese.
VB.NET-Quellcode
- Private Sub PrintDocument1_QueryPageSettings(sender As Object, e As QueryPageSettingsEventArgs) Handles PrintDocument1.QueryPageSettings, pdoc.QueryPageSettings
- Dim ps As New Printing.PaperSize("Etikett", 110, 45)
- e.PageSettings.PaperSize = ps
- e.PageSettings.PaperSize.RawKind = Printing.PaperKind.Custom
- End Sub
VB.NET-Quellcode
- Public Sub EtikettDrucken(ByVal Text As String)
- TMPBarcode = Text
- Dim Form3PrintDocument1 As New PrintDocument()
- 'Form3.PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSize = New PaperSize("Etikett", 43, 110)
- Form3.PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSize = New PaperSize("Etikett", 110, 45)
- Form3.PrintPreviewControl1.Update()
- Form3.PrintPreviewControl1.Refresh()
- Form3.PrintPreviewDialog1.Document = Form3.PrintDocument1
- If Form3.PrintPreviewDialog1.ShowDialog() = DialogResult.Cancel Then
- Else
- Dim findprinter As Boolean = False
- Dim printername As String = ""
- Dim pkInstalledPrinters As String
- ' Find all printers installed
- For Each pkInstalledPrinters In PrinterSettings.InstalledPrinters
- If pkInstalledPrinters.Contains(DruckerName) Then
- findprinter = True
- printername = pkInstalledPrinters
- End If
- Next pkInstalledPrinters
- If findprinter = True Then
- Form3.PrintDocument1.PrinterSettings.PrinterName = printername
- Form3.PrintDocument1.Print()
- End If
- End If
- End Sub
Dazu zu sagen Das Document befindet sich auf Form3 und die Public Sub EtikettDrucken befindet sich in eine Module was von mehreren Formen aufgerufen wird.
Kann mir da wer weiterhelfen?[font='Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap; background-color: rgb(252, 253, 254)']Public [/font]Sub[font='Consolas, "Courier New", monospace; font-size: 13px; white-space: pre-wrap; background-color: rgb(252, 253, 254)'] EtikettDrucken[/font]