macro die zelf "bedenkt" wanneer te stoppen met printen

[Hansheems]

Hoi allen,

Ik wil graag een macro die zelf kan “bedenken” wanneer hij moet stoppen met printen.
Een opzet zit er als bijlage bij, ik weet niet of ik op de goede weg ben, maar ik hoop dat julie me kunnen helpen.

Het blad zoals is bijgevoegd, is zoals ik het in de praktijk wil gaan toepassen, dus het vert. zoeken en verversen op een “printbaar rapportageblad” weergeven.

Ik heb al een beetje gezocht maar ik kan toch eigenlijk zelf niks vinden / bedenken… wellicht dat jullie ij kunnen en willen helpen?

Alvast mega bedankt !!
Bekijk bijlage Excel vraagstuk.xlsx

 

[Niels28]

wel even je afdrukbereik instellen.

Sub printen()

    For Each cl In Sheets("Datablad").Range("A:A").SpecialCells(2)
        With Sheets("printblad")
            .Range("L2").Value = cl.Value
            .PrintOut
        End With
    Next

End Sub

Niels

 

[Hansheems]

Afdrukbereik

Bekijk bijlage Excel vraagstuk.xlsx

Goedemorgen,

Ik heb in mijn originele bestand inderdaad netjes de pagine helemaal afgebakend, zodat bij control P hij enkel de gewenste gegevens afdrukt.
Dus dat deel is al "opgelost", ik moet nu alleen nog zorgen dat hij precies genoeg de control P functie uitvoert met de juiste gegevens :shocked:

Bijlage met printbereik zit er nu bij in.

Zelf denk ik dat ik dan met de IF, THEN, ELSE moet gaan werken.

Iets van:

IF L4 > 1 ; THEN L2 = L4 + print ; ELSE end sub
IF L5 > 1 ; THEN L2 = L5 + print ; ELSE end sub
etc. etc.

 

[Niels28]

Wat doet mijn macro niet wat je vraagt?

En als je echt denkt dat je allemaal if-then contructies moet maken zou ik als ik jou was je VBA-boek nog maar eens doorlezen.

Niels

 

[Hansheems]

Excuus, ik was zo te zien nog niet helemaal wakker toen ik jou post las!
Het werkt inderdaad als een trein!

Danku danku!

 

[Niels28]

Fijn, snapte er al helemaal niks meer van.

Niels

 

[VenA]

Hoewel de vraag is opgelost zou ik voor een dynamische oplossing kiezen. Door bv in de tab 'Datablad' een extra kolom te gebruiken waarin je aangeeft of een rij wel of niet afgedukt moet worden. Als de layout van jouw 'Printblad' hetzelfde is als in jouw echte bestand kan je deze eens proberen.

Sub VenA()
ar = Sheets("Datablad").Cells(1).CurrentRegion
For j = 2 To UBound(ar)
    If LCase(ar(j, 6)) = "ja" Then
        For jj = 1 To UBound(ar, 2)
            c00 = c00 & ar(j, jj) & "||"
        Next jj
        With Sheets("Printblad")
            .Range("C4").Resize(9, 1) = Application.Transpose(Split(c00, "|"))
            .PrintPreview 'PrintOut
            c00 = ""
        End With
    End If
Next j
End Sub