jj 24.07, wix installer
This commit is contained in:
Jonathan Jenne
125
KommiCollo/frmLabel_.HP.vb
Normal file
125
KommiCollo/frmLabel_.HP.vb
Normal file
@@ -0,0 +1,125 @@
|
||||
Imports Microsoft.Reporting.WinForms
|
||||
Imports System.Text
|
||||
|
||||
Public Class frmLabel
|
||||
|
||||
Private Sub frmLabel__Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.ReportViewer1.RefreshReport()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
|
||||
Dim report As New LocalReport()
|
||||
report.ReportPath = Application.StartupPath & "\Testreport.rdlc"
|
||||
' print_microsoft_report(report, 10, 14, False, "Schaum-Drucker")
|
||||
|
||||
ClassPrintReport.Run(report)
|
||||
'Print("Schaum-Drucker")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
|
||||
Print_NVEZPL("Digital Data", "Ludwg-Rinn Str 16", "35452", "Heuchelheim", "Marlon Schreiber", "Zum Maiplatz 7", "35398", "Gießen", "426000947600963763")
|
||||
End Sub
|
||||
Public Shared Function Print_NVEZPL(absName As String, absStrasse As String, absPLZ As String, absOrt As String, empname As String, empStrasse As String, empPLZ As String, empOrt As String, _NVE As String)
|
||||
Try
|
||||
Dim pText As New StringBuilder
|
||||
pText.AppendLine("^XA") 'Every Format must start with this command
|
||||
pText.AppendLine("^CI28")
|
||||
'Barcode
|
||||
pText.AppendLine("^BY4^FO650,50^BCR,160,N,N,N,A^FD00" & _NVE & "^FS")
|
||||
pText.AppendLine("^CFA,30^FWr^FO620,60^FDNVE 00" & _NVE & "^FS")
|
||||
|
||||
pText.AppendLine("^AU^FO750,700^FDS.T.a.R.^FS")
|
||||
pText.AppendLine("^CF0,22^FWr^FO720,700^FDSYSTEM-TRANSPORT auf RÄDERN^FS")
|
||||
pText.AppendLine("^CF0,40^FWr^FO680,700^FD35 - Giessen^FS")
|
||||
pText.AppendLine("^FWr^FO650,700^FDHellmold & Plank^FS")
|
||||
pText.AppendLine("^CF0,40^FWr^FO560,50^FDS.T.a.R. GmbH, Werner von Siemens-Str. 1, 34576 Homberg-Efze Telefon: 05681/988823^FS")
|
||||
pText.AppendLine("^FO480,50^FDHinweise:^FS")
|
||||
pText.AppendLine("^FO430,50^FDFixtermin! Nicht früher oder später - ^FS")
|
||||
|
||||
pText.AppendLine("^FO540,50^GB1,1050,3^FS") 'Breite Linie
|
||||
pText.AppendLine("^FO50,600^GB490,1,3^FS") 'Senkrechte Linie
|
||||
pText.AppendLine("^FO510,610^FDVersender:^FS")
|
||||
pText.AppendLine("^FO510,780^FDReinhard Schaum^FS")
|
||||
pText.AppendLine("^FO460,780^FDRheinstrasse 8^FS")
|
||||
pText.AppendLine("^FO420,780^FDDE - 35625 Hüttenberg^FS")
|
||||
pText.AppendLine("^FO405,600^GB1,500,3^FS")
|
||||
pText.AppendLine("^AT^^FO360,610^FDAnzahl Packstücke:^FS")
|
||||
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
|
||||
pText.AppendLine("^FO330,600^GB1,500,3^FS")
|
||||
pText.AppendLine("^AT^FO290,610^FDEmpfänger:^FS")
|
||||
pText.AppendLine("^AU^FO230,610^FD" & empname & "^FS")
|
||||
pText.AppendLine("^AU^FO150,610^FD" & empStrasse & "^FS")
|
||||
pText.AppendLine("^AU^FO80,610^FDDE-" & empPLZ & " " & empOrt & "^FS")
|
||||
pText.AppendLine("^XZ") 'Every Format must end with this command
|
||||
RawPrinter.SendToPrinter("NVE-Etikett", pText.ToString, "Schaum-Drucker") 'print the String
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in Print_NVE_ZPL: " & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
Sub PrintViaIP(IP As String, empname As String, empStrasse As String, empPLZ As String, empOrt As String, _NVE As String)
|
||||
Dim ipAddress As String = IP
|
||||
Dim port As Integer = 9100
|
||||
|
||||
Dim pText As New StringBuilder
|
||||
pText.AppendLine("^XA") 'Every Format must start with this command
|
||||
pText.AppendLine("^CI28")
|
||||
'Barcode
|
||||
pText.AppendLine("^BY4^FO650,50^BCR,160,N,N,N,A^FD00" & _NVE & "^FS")
|
||||
pText.AppendLine("^CFA,30^FWr^FO620,60^FDNVE 00" & _NVE & "^FS")
|
||||
|
||||
pText.AppendLine("^AU^FO750,700^FDS.T.a.R.^FS")
|
||||
pText.AppendLine("^CF0,22^FWr^FO720,700^FDSYSTEM-TRANSPORT auf RÄDERN^FS")
|
||||
pText.AppendLine("^AQ^FO680,700^FD35 - Giessen^FS")
|
||||
pText.AppendLine("^AQ^FO650,700^FDHellmold & Plank^FS")
|
||||
pText.AppendLine("^AQ^FO560,50^FDS.T.a.R. GmbH, Werner von Siemens-Str. 1, 34576 Homberg-Efze Telefon: 05681/988823^FS")
|
||||
pText.AppendLine("^AQ^FO480,50^FDHinweise:^FS")
|
||||
pText.AppendLine("^AQ^FO430,50^FDFixtermin! Nicht früher oder später - ^FS")
|
||||
|
||||
pText.AppendLine("^FO540,50^GB1,1050,3^FS") 'Breite Linie
|
||||
pText.AppendLine("^FO50,600^GB490,1,3^FS") 'Senkrechte Linie
|
||||
pText.AppendLine("^AR^FO510,610^FDVersender:^FS")
|
||||
pText.AppendLine("^AR^FO510,780^FDReinhard Schaum^FS")
|
||||
pText.AppendLine("^AR^FO460,780^FDRheinstrasse 8^FS")
|
||||
pText.AppendLine("^AR^FO420,780^FDDE - 35625 Hüttenberg^FS")
|
||||
|
||||
pText.AppendLine("^FO405,600^GB1,500,3^FS")
|
||||
pText.AppendLine("^AT^^FO360,610^FDAnzahl Packstücke:^FS")
|
||||
pText.AppendLine("^AT^^FO360,950^FD99^FS") 'Anzahl Packstücke Linie
|
||||
pText.AppendLine("^FO330,600^GB1,500,3^FS")
|
||||
pText.AppendLine("^AT^FO290,610^FDEmpfänger:^FS")
|
||||
pText.AppendLine("^AU^FO230,610^FD" & empname & "^FS")
|
||||
pText.AppendLine("^AU^FO150,610^FD" & empStrasse & "^FS")
|
||||
pText.AppendLine("^AU^FO80,610^FDDE-" & empPLZ & " " & empOrt & "^FS")
|
||||
pText.AppendLine("^XZ") 'Every Format must end with this command
|
||||
|
||||
Try
|
||||
'Open Connection
|
||||
Dim client As New System.Net.Sockets.TcpClient
|
||||
client.Connect(ipAddress, port)
|
||||
|
||||
'Write ZPL String to Connection
|
||||
Dim writer As New System.IO.StreamWriter(client.GetStream())
|
||||
writer.Write(pText)
|
||||
writer.Flush()
|
||||
|
||||
'Close Connection
|
||||
writer.Close()
|
||||
client.Close()
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
'Catch Exception Here
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
|
||||
PrintViaIP("172.24.10.18", "Marlon Schreiber", "Zum Maiplatz 7", "35398", "Gießen", "426000947600963763")
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user