VB Problem mit Drucken von 2 Listboxen!

[Gast]

hi,
habe folgendes Problem, ich habe 2 Listboxen welche ich nebeneinander auf eine Seite Papier ausdrucken lassen möchte, das ganze sieht ungefähr so aus:
In der linken Listbox stehen Artikelnamen, in der rechten Lixbox (sind beide parallel) stehen die Preise zu den Artikeln.

Wenn ich nun die bieden Listen ausdrucken lasse, bekomme ich folgendes Druckergebnis (als Beispiel):

Cola
Fanta
Pzza
Bier
1,20€
1,20€
5,00€
1,50€

Dieses Ergebnis möchte ich jedoch erzielen:

Cola 1,20€
Fanta 1,20€
Pizza 5,00€
Bier 1,50€

Mein Programcode fürs Drucken sieht bisher folgendermaßen aus:

Private Sub CBdrucken_Click()
For i = 0 To LSTArtikel.ListCount - 1
Printer.Font = "Arial"
Printer.FontSize = 14
Printer.ScaleMode = 7
Printer.CurrentX = 3
Printer.Print LSTArtikel.List(i)
Next

For i = 0 To LSTPreis.ListCount - 1
Printer.Font = "Arial"
Printer.FontSize = 14
Printer.ScaleMode = 7
Printer.CurrentX = 9
Printer.Print LSTPreis.List(i)
Next

Printer.EndDoc
End Sub


Hoffe auf schnelle Hilfe und schonmal Danke im Vorraus.

[Der_Donnervogel]

Am besten einfach die Ausgabe in einer for-Schleife kombinieren:

For i = 0 To LSTArtikel.ListCount - 1
Printer.Font = "Arial"
Printer.FontSize = 14
Printer.ScaleMode = 7
Printer.CurrentX = 3
Printer.Print LSTArtikel.List(i) & " " & LSTPreis.List(i)
Next

Edit:

Wobei ich mal annehme, daß die beiden Boxen die gleiche Anzahl an Elementen enthalten. Außerdem braucht man wohl .Font, .FontSize und .ScaleMode nicht bei jedem Schleifendurchlauf neu setzen nehm ich mal an.

Printer.Font = "Arial"
Printer.FontSize = 14
Printer.ScaleMode = 7
For i = 0 To LSTArtikel.ListCount - 1
Printer.CurrentX = 3
Printer.Print LSTArtikel.List(i) & " " & LSTPreis.List(i)
Next