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. Det enklaste är att göra så här.Skriva ut en listbox
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.EndDocSv: Skriva ut en listbox
<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>