När jag har i VB kod en kommando knapp som skriver ut listboxar så vill jag att den ska ta ett namn från en label på samma sida! Hur? Lägger med koden på Skriv ut knappen!

Private Sub cmdPrint_Click()
Dim i As Long, Lcnt As Long
Lcnt = lstDatum.ListCount
Printer.ScaleMode = 7 'cm
Printer.Font = "Arial"
Printer.FontSize = 12
Printer.FontBold = True
Printer.CurrentX = 4: Printer.CurrentY = 5
Printer.Print ; "Datum"; Tab(39); "Service"; Tab(52); "Pris"; _
Tab(63); "Antal"; Tab(78); "Plats"
Printer.Print
Printer.FontBold = False
Printer.CurrentX = 4
For i = 0 To Lcnt
Printer.Print lstDatum.List(i), lstService.List(i), lstPris.List(i), _
lstAntal.List(i), lstPlats.List(i)
Printer.CurrentX = 4
Next 'i
Printer.EndDoc

End Sub

Nu börjar du bli jobbig,skriv i Vb nybörjare nästa gång.
<code>
Private Sub cmdPrint_Click()
Dim i As Long, Lcnt As Long
Lcnt = List1.ListCount
Printer.ScaleMode = 7 'cm
Printer.Font = "Arial"
Printer.FontSize = 12
Printer.FontBold = True
'*******************
Printer.CurrentX = 2.5: Printer.CurrentY = 3
Printer.Print Label1.Caption
'**************************
Printer.CurrentX = 2.5: Printer.CurrentY = 4
Printer.Print ; "Datum"; Tab(27); "Service"; Tab(52); "Pris"; _
Tab(64); "Antal"; Tab(78); "Plats"
Printer.Print
Printer.FontBold = False
Printer.CurrentX = 2.5
For i = 0 To Lcnt
Printer.Print List1.List(i), List2.List(i), , List3.List(i), _
List4.List(i), List5.List(i)
Printer.CurrentX = 2.5
Next 'i
Printer.EndDoc
End Sub
</code>