Private Sub but1_Click
Starter.Printer2.Size(60,40)
Starter.Printer2.GAP(2,0)
Starter.Printer2.DENSITY2(7)
Starter.Printer2.REFERENCE(0,0)
Starter.Printer2.CLS
Dim a As String
a= 1 & ":Test" & DateTime.Date(DateTime.Now) & " " & DateTime.Time(DateTime.Now)
Starter.Printer2.TEXT(50,7,"TSS24.BF2",0,1,1,0,a)
Starter.Printer2.BOX(100,100,400,280,1,10)
Starter.Printer2.PRINT(1,0)
Starter.Printer2.EOP
End Sub