Hallo,
Wellicht dat iemand mij verder op weg kan helpen. Ik heb een database waarin door de gebruiker een artikel gekozen kan worden. Uiteindelijk is het de bedoeling dat er een barcode geprint wordt op een Zebra ZM400 labelprinter. Ik krijg het echter niet aan de praat .. iemand een suggesties, een deel van de code:
Wellicht dat iemand mij verder op weg kan helpen. Ik heb een database waarin door de gebruiker een artikel gekozen kan worden. Uiteindelijk is het de bedoeling dat er een barcode geprint wordt op een Zebra ZM400 labelprinter. Ik krijg het echter niet aan de praat .. iemand een suggesties, een deel van de code:
Code:
Sub print_1
On Error goto onerror
Dim deprinter As String
Dim strQuote As String
deprinter = "\\brouwer-magazijn.local\ZebraM400"
strQuote = Chr(34)
' open printer port
Open deprinter For Output As #1
' 1 is de opening en 2 is de eindlijn
varitem1 = "~SD29"
varitem2 = "^XZ"
'hieronder de variabelen voor het printen
varitem3 = GetBedrijfsNaam()
varitem4 = "^PQ#" & txtartikelcode & "#,0,0,N"
varitem5 = "^LH25, 15"
varitem6 = "^A0N,18,10"
varitem7 = "^CF0,18,10"
varitem8 = "^FO70,15^BEN,80,Y,N^FD#" & eantxt & "#^FS"
varitem9 = "^CF0,24,16^FO70,120^FD#" & omschrijvingtxt & "#^FS"
varitem10 = "^CF0,24,16^FO70,140^FD#" & txtartikelcode & "#^FS"
varitem11 = "D" + Replace(Trim(txtartikelcode), "-", "") + Right("0000" + txtaantal, 4)
Open deprinter For Output As #1
Print #1, vbCrLf
Print #1, varitem1
Print #1, varitem4
Print #1, varitem5
Print #1, varitem6
Print #1, varitem7
Print #1, varitem8
Print #1, varitem9
Print #1, varitem10
Print #1, varitem2
Close #1
Exit sub
onError:
Msgbox errCode
End Sub
