Nästa problem med listboxzen. Utskriften. Använder jag koden nedan kommer bara första raden på rätt ställe. Alla andra rader hamnar längst ute vid marginalen.

Printer.ScaleMode = 7
Printer.FontName = "Tahoma"
Printer.FontSize = 10

Printer.CurrentX = 2
Printer.CurrentY = 5
For i = 0 To List1.ListCount - 1
Printer.Print List1.List(i)
Next

Printer.EndDoc

Det enklaste är att göra så här.
<code>
Dim i As Long ' i = increment (öka med . normalt 1 i = i + 1)
Printer.ScaleMode = 7 'cm
Printer.FontName = "Tahoma"
Printer.FontSize = 10

Printer.CurrentY = 5 'cm ner
For i = 0 To List1.ListCount - 1
Printer.Print ; Tab(10); List1.List(i) ' Justera Tab(10) efter behov (10 tecken in)
DoEvents 'behövs nog inte men skadar inte
Next 'i
Printer.EndDoc
</code>
'********************************************************************
Ett exempel på hur jag skriver ut en rad från en DataBastabell (5 datavärde på en rad)
<code>
'Tab(X) antal tecken med sin FontSize
Printer.Print ; Tab(11); dtaBasData.Recordset(10) _
; Tab(40); dtaBasData.Recordset(0); "." _
; Tab(45); dtaBasData.Recordset(1) _
; Tab(71); "StartKurs : " & dtaBasData.Recordset(5) _
; Tab(92); dtaBasData.Recordset(13)
</code>

Tack igen fungerar klockrent.