Hur man så att VB program man har gjort skriver ut en halvsida av formlen alltså bara listboxarna???

Vill at det skriver ut så här:

Datum Service Pris Antal Plats
20.12.2004 Tvätt 52 1 Sverige
20.12.2004 Tvätt 52 5 Danmark
20.12.2004 Tvätt 52 2 Sverige
20.12.2004 Tvätt 52 6 Norge
20.12.2004 Tvätt 52 9 Finland

Har du fem(5) ListBoxar eller är det bara en ?

Vet inte om det hjälper men du kan titta på Artikel [Använd Printer-funktionen 2/2] samt att ta en titt på .CurrentX samt .CurrentY för att positionera var den skall skriva nästa gång.

Eftersom det inte framgår hur du hämtar de olika data så får du här
ett exempel på hur man kan göra och hur det kommer att ta sig ut vid utskrift.
<code>
Option Explicit
Private Sub Command1_Click()
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
Printer.Print "20.12.2004", "Tvätt", "52", "1", "Sverige"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "5", "Danmark"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "2", "Sverige"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "6", "Norge"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "9", "Finland"
Printer.EndDoc
End Sub
</code>

Jag har 5 st! Jag skriver i textboxar och när jag sparar kommer dom i listboxar ovanför och dom vill jag skriva ut.

Hur får man att det tar texten eller "värden" ur listboxar???

Men hur är det när det kommer fler rader i listboxarna inte kan jag ju skriva:

Printer.Print "20.12.2004", "Tvätt", "52", "1", "Sverige"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "5", "Danmark"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "2", "Sverige"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "6", "Norge"
Printer.CurrentX = 4
Printer.Print "20.12.2004", "Tvätt", "52", "9", "Finland"
Printer.EndDoc


Det kommer flera.....

Använder du verkligen 5 listboxar som ligger bredvid varandra??? Titta på Listview-funktionen (jag har för mig den heter så... alldeles för länge sedan jag programmerade seriöst... =()

/Emma

Håller med DQ att ListView i Rapportläge skulle passa bättre. Men ! som du har det nu
kan du göra enl. denna princip

Edit: koden ändrad se längre ner.

Tack för hjälpen

men jag vill ha längre mellan rum för service som jag har på första exemplaret... hur får jag det har försökt ändra Tab(39) sånna men det blir bara ett helvete....

Edit: bort

Bättre! Men det blir för lite mellan rum för Service vill att man skulle kunna skriva en mening "bLABKLSADJÖFLKHSDHFNLDSFHSDFLHNLDSFHFASKLDFLOFDS" så långt....

Går det att lägga i liggande format!

Hur får man att det tar med ur en Label en text "Reg nr" som uppdateras alltid när man väljer nu bil. Och visar "Reg nr" Högst upp på sidan i mitten???

Då kan det bli så här
<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.Orientation = 2 ' Liggande A4 , 1 = Normal stående
'*******************
Printer.CurrentX = 2: Printer.CurrentY = 2
Printer.Print "YKL 532" 'fingerad Label1.Caption
'Printer.Print Label1.Caption
'**************************
Printer.CurrentX = 2: Printer.CurrentY = 3
Printer.FontUnderline = True
Printer.Print ; "Datum"; Tab(27); "Service"; Tab(95); "Pris"; _
Tab(103); "Antal"; Tab(112); "Plats"
Printer.Print ' Tom rad
Printer.FontBold = False
Printer.FontUnderline = False
Printer.CurrentX = 2
Printer.Print "20.12.2004", "TEST LSADJÖFLKHSDHFNLDSFHSDFLHNLDSFHFASKLDFLOFDS"; _
Tab(104); "52", "1"; Tab(122); "Sverige"
Printer.CurrentX = 2
For i = 0 To Lcnt
Printer.Print List1.List(i), List2.List(i); Tab(104); List3.List(i), _
List4.List(i); Tab(122); List5.List(i)
Printer.CurrentX = 2
Next 'i
Printer.EndDoc
End Sub
</code>

TACK SÅ VÄLDIGT MYCKET FÖR ALL DIN HJÄLP!!!