Private Sub cmdDrucken_Click()
Dim sBlatt As Boolean
Dim bReie As Integer
Dim bProdukt As Integer
Dim i As Integer
Dim bDir As String
Dim aSeite As Integer
 
i = 0
sBlatt = False
Printer.FontName = "Arial"
bReie = 0
aSeite = 0
 
'Diese Funktion kontrolliert ob alle Barcodebilder vorhanden sind
kBilder
lst1.ListIndex = 0
pgb1.Max = lst1.ListCount
 
For i = 0 To lst1.ListCount
 
'Diese if Anweisung kontrolliert ob der Titel schon geschrieben wurde
If sBlatt = False Then
 sTitel
 sBlatt = True
End If
 
 'Name
 Printer.CurrentX = 1701
 Printer.CurrentY = 2835 + bReie
 Printer.FontSize = 26
 Printer.Print lst1.Text
 
 'Preis
 Printer.CurrentX = 5670
 Printer.CurrentY = 2835 + bReie
 Printer.FontSize = 26
 Printer.Print txtPreis.Text
 
'---HIR IST MEIN PROBLEM--- 
'Barcode
 img1.Picture = LoadPicture(App.Path & "\BarcodeIMG\" & txtBarcode.Text & _
   ".gif")
 Printer.PaintPicture img1.Picture, 7371, 2835 + bReie, 1985, 1418
 
pgb1.Value = pgb1.Value + 1
 
If lst1.ListCount = lst1.ListIndex + 1 Then
 Printer.EndDoc
 Exit Sub
 
Else
 
lst1.ListIndex = lst1.ListIndex + 1
bReie = bReie + 2552
 
End If
 
aSeite = aSeite + 1
If aSeite = 5 Then
 Printer.NewPage
 bReie = 0
 sBlatt = False
End If
 
Next i
 
End Sub