actief blad afdrukken

[verluc]

Heb een bestand met 6 bladen(sheets) en een code voor afdruk:

Sub druk()
If Application.Dialogs(xlDialogPrinterSetup).Show Then
End If
[A1].CurrentRegion.PrintOut
End Sub

Wanneer ik deze macro gebruik drukt deze alle bladen af en niet dat blad dat aktief of
geselecteerd is.

Enig idee wat de aanpassing aan deze macro kan zijn ?
Met dank bij voorbaat.

 

[ExcelAmateur]

verluc,

Ik ben maar een amateur maar als je dit ervan maakt?

ActiveSheet.[A1].CurrentRegion.PrintOut

Je bent al vanaf 29 mei 2009 lid, dan moet je toch wel weten dat je de code moet selecteren en boven in het Menu op # moet klikken?

 

[verluc]

Bedankt, Uw suggestie is de oplossing.
Zet deze vraag als "opgelost".