Sub Button1_Click
Dim Zebra As LanZebraPrinter
Zebra.Initialize(Me,"Zebra")
Zebra.AddText(240,50,"Intershipping, Inc.",60,True)
Zebra.AddText(240,115,"1000 Shipping Lane",30,True)
Zebra.AddText(240,155,"Shelbyville TN 38102",30,True)
Zebra.AddText(240,195,"United States (USA)",30,True)
Zebra.AddHorizLine(50,250,700,3)
Zebra.AddBarCode(50,300,200,"123456789",3)
Zebra.Open(TextHost.Text,Zebra.desktop)
Wait For Zebra_Opened(Success As Boolean)
If Success Then Zebra.PrintAndClose
End Sub
Private Sub Button2_Click
Dim Zebra As LanZebraPrinter
Zebra.Initialize(Me,"Zebra")
Zebra.AddText(240,50,"Intershipping, Inc.",60,True)
Zebra.AddText(240,115,"1000 Shipping Lane",30,True)
Zebra.AddText(240,155,"Shelbyville TN 38102",30,True)
Zebra.AddText(240,195,"United States (USA)",30,True)
Zebra.AddHorizLine(50,250,700,3)
Zebra.AddBarCode(50,300,200,"123456789",3)
Zebra.Preview ' Requires an internet connection
Wait For Zebra_Preview(Success As Boolean, bmp As B4XBitmap)
If Success Then ImageView1.SetBitmap(bmp.Resize(ImageView1.Width,ImageView1.Height,True))
Sleep(100)
Zebra.Close
End Sub