Printer problemer, med design af udskrift.

arbejder bla. med database i programmet, hvorden henter,
al den data som skal printes.

Nu ville jeg så gå i gang med selve printer elementet.
hvor den som standard laver en overskrift.
Og tekst over hver tabel.

Men den skifter linie selvom jeg sætte koordinater på.
her er hvad jeg har. 

og som i kan se, udfra koordinaterne, skulle de fire kollonner værer ved siden af hinanden ikke under hinanden.

For Next commandoen i bunden, (som ikke virker)
Bliver der hvorjeg henter data fra databasen.
Men det er ikke noget problem.

Problemet er selve udskriften.


*********************************************

Private Sub Command1_Click()
Data1.Recordset.movelast      'Flytter til sidste R
NYID = Data1.Recordset("ID")  'Finder sidst AutoID
Data1.Recordset.movefirst      'Flytter tilbage til første

Printer.FontName = "Times New Roman" 'sætter skriftsnit
Printer.FontSize = 10                'sætter skriftstørrelse

Printer.Print " "                'vækker printer af dvale
Printer.PaintPicture LOGO, 100, 10 'indsætter logo
Printer.Print "---"; 10, 20

Printer.Print " - Bon nr - ", 10, 40
Printer.Print " - Varehus - ", 22, 40
Printer.Print " - Pris - ", 35, 40
Printer.Print " - Antal % ", 45, 40

Printer.Print " "

For NYID = NYID To NYID + 1


Next

Printer.EndDoc
End Sub