Printrange

[ZIPPO_2]

Ik heb in map verschillende bladen(160) van verschillend formaat (staand en liggend)die al dan niet moeten afgedrukt worden.
Ik heb op elk blad een printbutton aangemaakt met een verwijzing naar een macro.
Ik kan voor elk blad een aparte macro maken met een andere range, maar
ik zou liever 1 macro voor alle bladen in een module willen gebruiken.
Probleem is dat ik niet weet hoe ik het printbereik moet instrellen

De macro die ik nu gebruik
Sub printen1()
Range("A1:u60").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub

 

[dennisdennis12]

gebruik je apple of windows?

 

[sylvester-ponte]

hoi ZIPPO_2

als je bedoeld dat je met een macro alle bladen wilt afdrukken dan kan zoiets
het kan misschien korter maar ik heb zo veel mogelijk jou code overgenomen.

Sub test()
 Dim sh As Worksheet
 For Each sh In Sheets
    sh.Select
    Range("A1:u60").Select
    Selection.PrintOut Copies:=1, Collate:=True
    Range("A1").Select
 Next sh
End Sub

groet sylvester

 

[Warme bakkertje]

Aangezien je voor zoveel werkbladen 1 macro wil gebruiken zou ik op elk werkblad in een cel het printbereik zetten en in je macro naar deze cel verwijzen om het printbereik in de macro in te stellen. bv

Activesheet.PageSetup.PrintArea = [A1]

 

[ZIPPO_2]

Hoi sylvester
Het is niet de bedoeling dat ik met 1 macro ineens alle bladen afdruk maar enkel de bladen die aangepast zijn.
En alle bladen hebben ook niet hetzelfde printbereik

Warm bakkertje,
Jou oplossing lijkt me al iets logischer maar ik krijg het niet ingepast in de macro
Vervang ik enkel de range door jou formule of moet deze nog verder aangepast?
Groetjes
Zippo_2

Alvast bedankt voor jullie reacties

 

[Warme bakkertje]

Sub printen1()
With ActiveSheet
    .PageSetup.PrintArea = .[A1]
    .PrintOut Copies:=1, Collate:=True
    Application.Goto .[A1]
End With
End Sub

 

[ZIPPO_2]

Hallo Warm bakkertje,
Die oplossing had ik ook maar nu werkt het
Ik was het punt vergeten voor [A1]
Hartelijk bedankt en nog een prettige dag verder
Groetjes
Ronny