Någon som kan hjälpa mig med detta lilla problem.
Jag använder koden nedan till att skriva ut från en grid (Hittad här, tack för det).
Problemet är att är det fler rader än vad som finns plats på ett A4 så skriver den ut en rad på ett papper till alla rader är utskrivna, det blir en massa papper.



Dim iScaleMode As Integer
Dim iCol As Integer
Dim iRow As Integer
Dim sngRowHeight As Single
Dim sngColWidth As Single
Dim sngLeftMargin As Single
Dim sngTopMargin As Single


Printer.ScaleMode = 7
iScaleMode = Printer.ScaleMode()
Printer.ScaleMode = vbCentimeters

Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 10
Printer.Font.Bold = Grid1.Font.Bold
Printer.Font.Underline = Grid1.Font.Underline
Printer.Font.Strikethrough = Grid1.Font.Strikethrough

sngRowHeight = 0.5!
sngColWidth = 1.7!
sngLeftMargin = 1!
sngTopMargin = 2.5!


For iRow = 0 To (Grid1.Rows() - 1)
Grid1.Row = iRow
Printer.CurrentY = ((sngRowHeight * iRow) + sngTopMargin)
For iCol = 0 To (Grid1.Cols() - 1)
Grid1.Col = iCol
Printer.CurrentX = ((sngColWidth * iCol) + sngLeftMargin)
Printer.Print Grid1.Text();
Next iCol
Next iRow
Printer.EndDoc