Private Sub Test_Print()
Dim pound_sign As String
Dim Company_name As String
Company_name = "Test Company"
Dim print As New Waterfurnace.ZebraPrint
print.StartWrite("\\pc-1\\ZebraLP2") ' this is printer sharing name
print.Write("")
print.Write("N")
print.Write("A500,200,2,4,1,1,N,""" & Style_Desc & """")
print.Write("A500,175,2,4,1,1,N,""£99.99""")
print.Write("A500,150,2,4,1,1,N,""" & Price & """")
print.Write("B500,100,2,1,2,1,40,N,""" & Bcode & """")
print.Write("A500,58,2,3,1,1,N,""" & Bcode & """")
'Print a single copy
print.Write("P1")
'Clean up
print.EndWrite()
End Sub
|