Gegevens uit listbox printen

[JosEindhoven]

Hallo

Ik heb een formulier waarmee ik gegevens kan zoeken in een werkblad.
Het resultaat komt in dat formulier in een listbox.
Nu wil ik deze gegevens printen.
Na 26000 pogingen heb ik de moed maar opgegeven
Ik krijg met geen mogelijkheid een fatsoenlijke printopdracht voor elkaar.

Wie wel ???

Om in vba te komen zit er rechts van de lopende klok een verborgen cmd button

 

[gast0660]

Is dit de bedoeling?

 

[JosEindhoven]

Hallo Dochiejack

Deze had ik zelf ook al geprobeerd. (Is een soortprintscreen)

Echter als je een grote uitkomst hebt bij zoeken dan laat hij niet alle gegevens zien dus komt de helft maar op de printuitdraai.

Als je bij zoeken bv. 0 (nul)in geeft

 

[gast0660]

Maak een extra tabblad (in mijn vbtje resultaat) aan en plak dan deze eens onder het knopje printen in de userform

Private Sub CommandButton4_Click()

    Dim ws As Worksheet
    Dim nextAvailableRow As Long , i As Variant
   Set ws = Sheets("resultaat")
     ws.Cells.ClearContents
    For i = 0 To ListBox1.ListCount - 1
   nextAvailableRow = ws.Range("D" & Rows.Count).End(xlUp).Row + 1
        
        ws.Range("A" & nextAvailableRow) = ListBox1.Column(1, i)
        ws.Range("B" & nextAvailableRow) = ListBox1.Column(2, i)
        ws.Range("C" & nextAvailableRow) = ListBox1.Column(3, i)
        ws.Range("D" & nextAvailableRow) = ListBox1.Column(4, i)
        ws.Range("E" & nextAvailableRow) = ListBox1.Column(5, i)
        ws.Range("F" & nextAvailableRow) = ListBox1.Column(6, i)
        
        Next i
       ws.Columns.AutoFit
       ws.PrintOut Copies:=1, Collate:=True
 
End Sub

Ps:als ik met zoiets zou moeten werken dan verbouw ik eerst de baas of de ontwerper en nadien het bestand.

 

[JosEindhoven]

Hallo gast0660

Dit is inderdaad wat ik zoek.
Zal de uitvoer nog wat aanpassen voor de rest helemaal top

Bedankt voor de snelle service

 

[snb]

Het kan ook met VBA:

Private Sub CommandButton4_Click()
   with Sheets("resultaat")
     .Cells.ClearContents
     .cells(1).resize(ubound(Listbox1.list),ubound(Listbox1.List,2))=listbox1.list
     .Columns.AutoFit
     .PrintOut
   end with
End Sub

 

[JosEindhoven]

Hallo Snb

Is het mogelijk om bij .Cells.ClearContents een uitzondering te maken voor de eerste 2 rijen zodat ik vaste kolomkoppen kan maken in de printuitdraai.

 

[snb]

Zeker

Private Sub CommandButton4_Click()
   with Sheets("resultaat")
     .usedrange.offset(2).ClearContents
     .cells(3,1).resize(ubound(Listbox1.list),ubound(Listbox1.List,2))=listbox1.list
     .Columns.AutoFit
     .PrintOut
   end with
End Sub

 

[JosEindhoven]

Top

Bedankt