Zitat:

Hallo, ich habe deine Druckproblematik mit den internen Schriften des Druckers(ESC-Befehle) und einer simplen Textdatei die ich dann via Shell und Print Befehl ausdrucke gelöst. Das drucken geht super fix. Finde den Quellcode gerade nicht(Bin im Office)

Public Sub KassenStartDrucken(ByVal FilialNr As String, ByVal BonNr As
String, ByVal Verkäufer As String, ByVal Anfangsbestand As String)
 
Dim intFileNo As Integer = FreeFile()
 
FileOpen(1, System.Windows.Forms.Application.StartupPath.ToString &
"\Kassenstart.txt", OpenMode.Output)
 
Select Case My.Settings.Bondrucker
 
Case "TMU210"
 
PrintLine(1, Chr(&H1B) + "@" + Chr(&H1B) + "@") 'Initializes the printer
(ESC @)
 
PrintLine(1, Chr(&H1B) + "a" + Chr(1)) 'Specifies a printing position (ESC
a)
 
Print(1, Chr(&H1B) + "!" + Chr(0))
 
Print(1, My.Settings.BonKopf1.ToString & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(1))
 
Print(1, My.Settings.BonKopf2.ToString & Chr(&HA))
 
Print(1, My.Settings.Bonkopf3.ToString & Chr(&HA))
 
Print(1, My.Settings.Bonkopf4.ToString & Chr(&HA) & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(0))
 
Print(1, "Kassenstart" & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(1))
 
PrintLine(1, Chr(&H1B) + "a" + Chr(0)) 'Specifies printing position (ESC a)
 
Print(1, "Beleg-Nr".PadRight(12) & vbTab & " " & BonNr & Chr(&HA))
 
Print(1, "Datum".PadRight(12) & vbTab & " " & Date.Now & Chr(&HA))
 
Print(1, "Bearbeiter".PadRight(12) & vbTab & " " & Verkäufer & Chr(&HA))
 
Print(1, "Filiale".PadRight(12) & vbTab & " " & FilialNr & Chr(&HA))
 
'Print(1, "Steuer-Nr" & Chr(9) & " " & "DE123456789" & Chr(&HA) & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(129) & "".PadLeft(40) & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(1))
 
PrintLine(1, Chr(&H1B) + "a" + Chr(2)) 'Specifies printing position (ESC a)
 
Print(1, "Anfangsbestand" & Anfangsbestand.PadLeft(26) & Chr(&HA))
 
PrintLine(1, Chr(&H1D) + "V" + Chr(66) + Chr(0)) 'Feeds paper & cut
 
Case "TSP2000"
 
PrintLine(1, Chr(&H1B) + "@" + Chr(&H1B) + "@") 'Initializes the printer
(ESC @)
 
PrintLine(1, Chr(&H1B) + "a" + Chr(1)) 'Specifies a printing position (ESC
a)
 
Print(1, Chr(&H1B) + "!" + Chr(0))
 
Print(1, My.Settings.BonKopf1.ToString & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(1))
 
Print(1, My.Settings.BonKopf2.ToString & Chr(&HA))
 
Print(1, My.Settings.Bonkopf3.ToString & Chr(&HA))
 
Print(1, My.Settings.Bonkopf4.ToString & Chr(&HA) & Chr(&HA))
 
Print(1, "Kassenstart" & Chr(&HA))
 
PrintLine(1, Chr(&H1B) + "a" + Chr(0)) 'Specifies printing position (ESC a)
 
Print(1, "Beleg-Nr" & Chr(9) & " " & BonNr & Chr(&HA))
 
Print(1, "Datum" & Chr(9) & " " & Date.Now & Chr(&HA))
 
Print(1, "Bearbeiter" & Chr(9) & " " & Verkäufer & Chr(&HA))
 
Print(1, "Filiale" & Chr(9) & " " & FilialNr & Chr(&HA))
 
'Print(1, "Steuer-Nr" & Chr(9) & " " & "DE123456789" & Chr(&HA) & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(129) & "".PadLeft(56) & Chr(&HA))
 
Print(1, Chr(&H1B) + "!" + Chr(1))
 
PrintLine(1, Chr(&H1B) + "a" + Chr(2)) 'Specifies printing position (ESC a)
 
Print(1, "Anfangsbestand" & Anfangsbestand.PadLeft(42) & Chr(&HA))
 
PrintLine(1, Chr(&H1D) + "V" + Chr(66) + Chr(0)) 'Feeds paper & cut
 
End Select
 
FileClose(1)
 
Shell("print /d:lpt1 " &
System.Windows.Forms.Application.StartupPath.ToString & "\Kassenstart.txt",
AppWinStyle.Hide)
 
End Sub