bereik printen met opdrachtknop

[Didelpara]

hoi,

Is het mogelijk dat elke werkfiche waar een naam in staat, afgeprint wordt dmv een opdrachtknop, de werkfiches waar geen naam in staat mogen niet afgeprint worden
De naam wordt automatisch ingevuld aan de hand van een formule die in de cel naast naam staat.

Bekijk bijlage verlofblad 2018.xlsm

 

[SjonR]

met deze code?

Sub printen()
    For i = 37 To 127 Step 9
        If ActiveSheet.Cells(2, i + 5).Value <> "" Then ActiveSheet.Cells(1, i).Resize(51, 9).PrintOut
    Next i
End Sub

 

[Didelpara]

SjonR,

is het mogelijk om de werkfiches apart op een A4 te printen?
en indien mogelijk uw formule uit te leggen.

Mercie

 

[SjonR]

De code kijkt per werkfiche of er een naam staat ingevuld. Indien dit het geval is, dan wordt de werkfiche afgedrukt.

Dit zou dus 1 werkfiche per keer moeten zijn. Hoe komt het er nu bij jou uit dan?

 

[Didelpara]

SjonR,

code werkt perfect maar de documenten worden landscape afgedrukt ipv portrait
Zou u zo vriendelijk willen zijn enige aanpassingen te doen want ik zie in de code niet waar de aanpassing moet gebeuren.

Thnx

Bekijk bijlage verlofblad 2018.xlsm

 

[Didelpara]

SjonR,

Ik heb het zelf af gevonden, niet in de code maar gewoon bij afdrukstand :thumb:

Ik denk dat m'n project af is of mss nog enkele verbeteringen die ik hopelijk zelf wel kan oplossen.


Hartelijk dank, ook Timshel, AlexCEL en Plongske voor jullie bijdrage.


Mvg Mario