Private Sub Command1_Click()
  Dim stVar1 As String
  Dim stVar2 As String
  Dim stVar3 As String
  Dim stVar4 As String
  Dim stVar5 As String
  Dim stVar6 As String
  Dim intVar1 As Integer
  Dim intVar2 As Integer
  Dim intVar3 As Integer
  Dim intVar4 As Integer
  Dim intVar5 As Integer
  Dim intVar6 As Integer
  Dim intVar7 As Integer
  Dim intVar8 As Integer
 
  stVar1 = "MTL-AE 997"
  stVar2 = "07:47"
  stVar3 = "Maeier"
  stVar4 = "Helmut Eisel"
  stVar5 = "Autostadt Auslieferung"
  stVar6 = "024112"
 
  intVar1 = 16
  intVar2 = 1
  intVar3 = 2
  intVar4 = 3
  intVar5 = 112
  intVar6 = 113
  intVar7 = 11
  intVar8 = 12
 
 
  Dim PR As Object
  <font color=green>'Set PR = Printer</font>
  Picture1.AutoRedraw = True
  Set PR = Picture1
 
  PR.FontSize = 7
  PR.CurrentX = 3000
  PR.Print "Server " & intVar7 & Time$
  PR.FontSize = 10
  PR.FontBold = True
  PR.Print stVar1 & "Zeit:" & stVar2 & "Platz: " & intVar1
  PR.FontSize = 9
  PR.FontBold = False
  PR.Print "Abholer: " & stVar3
  PR.FontSize = 9
  PR.Print "Kunde: " & stVar4
  PR.Print "Betreuer: " & stVar5
  PR.FontUnderline = True
  PR.Print "Gepäck:"
  PR.FontUnderline = False
  PR.Print intVar2 & " x " & stVar6
  PR.FontUnderline = True
  PR.Print "Präsente:"
  PR.FontUnderline = False
  PR.Print intVar3; " x " & intVar5
  PR.Print intVar4; " x " & intVar6
  <font color=green>'PR.NewPage
  'PR.EndDoc</font>
End Sub