printmacro werkt wel/niet

[Koos66]

Als noob gebruik ik een eenvoudige printmacro voor het printen v 1 bereik uit 1 werkblad. Alleen werkt hij niet met CtrlB máár wel in foutopsporing/stap-voor-stap (Excel2010). Wat doe ik verkeerd?

Sub Macro2()
' Macro2 Macro
' printen
' Sneltoets: Ctrl+b
         Range("PrintArea").Select
         ActiveSheet.PageSetup.PrintArea = "PrintArea"
         ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[Cobbe]

Volgens mij doet deze het zonder haperen, op voorwaarde dat er een bereik bestaat met de naam "PrintArea".

Sub Macro2()
' Macro2 Macro
' printen
' Sneltoets: Ctrl+b
         Range("PrintArea").PrintOut Copies:=1
End Sub

Succes, Cobbe

 

[Koos66]

THX Cobbe, het werkt. Deze kan dicht

 

[Warme bakkertje]

Het op opgelost zetten mag je zelf doen. Als advies wil ik je echter ook nog meegeven dat je moet vermijden van bereiken te benoemen met namen die eigen zijn aan XL (PrintArea). Dit zorgt enkel maar voor problemen.