Sheet activeren

[DZP]

Houwdie,

Ik heb wederom een probleempje en dat is het volgende!

Als ik een print wil maken met een knop die ook op die pagina staat gaat het goed. --> With ActiveSheet
Maar als ik een print wil maken met een knop uit een UserForm lukt het niet.

Ik moet waarschijnlijk eerst die pagina activeren maar dmv Sheets("bla,bla,bla").Activate lukt dat niet.
Is er iemand die daar een oplossing voor heeft.

          'Sheets("Over").Select
          'Sheets("Over").Activate

          'Hierboven gaat er iets fout volgens mij.
          'Hieronder gaat het goed als de knop op dezelfde pagina staat.

With ActiveSheet
        PageSetup.PrintArea = Range("B2:O" & Range("G" & Rows.Count).End(xlUp).Row + 2).Address
        .PrintOut
End With

M.vr.gr. en bedankt voor uw info

Henk.

 

[Elsendoorn2134]

Henk,

Activatie van de sheet is niet nodig.

With Acitveworkbook.Sheets("Bla,Bla,Bla")
        .PageSetup.PrintArea = Range("B2:O" & Range("G" & Rows.Count).End(xlUp).Row + 2).Address
        .PrintOut
End With

is voldoende,

Veel Succes.

 

[DZP]

Helaas werkt dat ook niet!

 

[Cobbe]

Waarom zou dat niet werken? Er mankeerden wel enkele .'en.

With Acitveworkbook.Sheets("Bla,Bla,Bla")
 .PageSetup.PrintArea = [COLOR="#FF0000"].[/COLOR]Range("B2:O" & [COLOR="#FF0000"].[/COLOR]Range("G" & [COLOR="#FF0000"].[/COLOR]Rows.Count).End(xlUp).Row + 2).Address
 .PrintOut
 End With

 

[Warme bakkertje]

Kleine typo

With Ac[COLOR="#FF0000"]ti[/COLOR]veworkbook.Sheets("Bla,Bla,Bla")
 .PageSetup.PrintArea = .Range("B2:O" & .Range("G" & .Rows.Count).End(xlUp).Row + 2).Address
 .PrintOut
 End With

 

[DZP]

Elsendoorn bedankt voor de oplossing en Cobbe bedankt voor de aanpassing.
Het werkt inderdaad nu naar behoren.
Ik had de macro geknipt en geplakt en het werkte eerst niet vanwege Acitveworkbook
Dat heb ik later aangepast omdat ik niet begreep waarom het niet werkte maar dat is weer verleden tijd.
Top :thumb:
M.vr.gr. en tot de volgende keer.

 

[DZP]

Sorry, Rudi ik had het niet gezien!!