Printbereik

[Jos1234]

Hallo
Om een afdruk te maken heb ik volgende code gebruikt

Dim MyPrintRange1, MyPrintRange2 As Range

    Set MyPrintRange1 = Worksheets("kasgegevens").UsedRange
    Set MyPrintRange2 = Worksheets("centralisatie").UsedRange
    
    With MyPrintRange1
        ActiveSheet.PageSetup.PrintArea = .Address
    End With
    
    With MyPrintRange2
        ActiveSheet.PageSetup.PrintArea = .Address
    End With
    
    Worksheets("kasgegevens").PrintOut
    Worksheets("centralisatie").PrintOut

Dat werkt wel, maar nadat blad1 is geprint ("Kasgegevens") wordt er een nieuw blad genomen om "Centralisatie" af te printen. Is het mogelijk om die twee bereiken op hetzelfde blad af te printen?

Jos

 

[Wigi]

Neen, je zal die ranges moeten kopiëren op een tijdelijk blad en dat geheel afprinten.