Filter en Printen

[RichieL]

Goedemorgen,

Ik zou graag een foutje willen oplossen met "filteren & printen"

In het bijgevoegde voorbeeld document heb ik 2 knoppen

Knop 1: Filteren en printen
knop 2: Opslaan op PDF

Na het filteren en printen komt op de eerste pagina de "bestelling eruit", maar op pagina 2 en op de koptekst. (zie voorbeeld foto's)

Pagina 1:


Pagina 2 t/m 7:


Is dit te voorkomen?

 

[VenA]

Waar is dit bestand te vinden?

=VLOOKUP(Q10;'\\ZYON-DC-1\FolderRedirections$\richard\Desktop\[Werkbon V2019.5xlsx.xlsm]ORDER'!$C:$I;5)

Waar zijn de macro's gebleven?

Misschien dit linkje maar even lezen? https://www.helpmij.nl/forum/announcement.php?f=5

Mogelijk krijg je dan wel een inhoudelijke reactie op de vraag. Nu is er niets van te zeggen.

 

[cow18]

je moet je printbereik aanpassen

Sub BepaalPrintbereik()
    sn = Range("z4:z615")                                            'kolom "nodig"
    For i = UBound(sn) To LBound(sn) Step -1                         'zoek laatste cel verschillend van 0
        If sn(i, 1) <> 0 Then Exit For
    Next
    Rij = i + 3                                                      'offset erbij tellen = laatste rij
    Set c = Range("S" & Rij)
    If c.MergeCells = True Then                                      'kijk of overeenkomstige cel in S-kolom een samengevoegde cel is
        Set c0 = c.MergeArea
        Rij = c0.Row + c0.Rows.Count - 1                             'nieuwe laatste rij
    End If

    Range("S4:S" & Rij).Resize(, 7).PrintOut preview:=True           'doe straks die preview weg
End Sub

 

[VenA]

@cow18, nu zie ik het grote voordeel van samengevoegde cellen in combinatie mat VBA:d

 

[cow18]

tja, de kerel die dat uitgevonden heeft ... :evil:.
't Is tijd dat Bill daar eens korte metten mee maakt,

 

[VenA]

Heb je toch een lijntje meehttps://www.helpmij.nl/forum/showthread.php/943595-In-plaats-van-datum-weeknummer-overnemen?p=6154947#post6154947

In een presentatieblad kan ik ik er wel enig voordeel in zien in databladen absoluut niet.

 

[RichieL]

@Cow18: Top! Dit werkt perfect. Bedankt ook voor de comments met uitleg! Erg leerzaam