herrfotograf
Gebruiker
- Lid geworden
- 13 nov 2007
- Berichten
- 26
Hallo allemaal,
Ik heb het volgende stukje opgenomen met de macro recorder. Nu wil ik dit echter aan een knop toevoegen. Ik begreep uit een ander topic op dit forum dat ik dan rechts moet klikken op de knop en zo de gemaakte macro kan importeren. Dit lukt mij echter niet.
Kan iemand me helpen met de code aan een knop te voegen?
Sub Printer()
'
' Printer Macro
' De macro is opgenomen op 23-11-2007 door Eric Evers.
'
' Sneltoets: CTRL+t
'
Range("A1
17").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Ik heb het volgende stukje opgenomen met de macro recorder. Nu wil ik dit echter aan een knop toevoegen. Ik begreep uit een ander topic op dit forum dat ik dan rechts moet klikken op de knop en zo de gemaakte macro kan importeren. Dit lukt mij echter niet.
Kan iemand me helpen met de code aan een knop te voegen?
Sub Printer()
'
' Printer Macro
' De macro is opgenomen op 23-11-2007 door Eric Evers.
'
' Sneltoets: CTRL+t
'
Range("A1

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub