VBA Print Macro, Fit to page

[sparerib]

Beste,

Ik heb al enkele zaken geprobeerd maar steeds als ik mijn gedeelte wil printen via een command button loop ik tegen het probleem aan dat hij constant 2 pagina's print. Ook krijg ik nu een foutmelding in mijn VBA code en ik weet echt niet meer hoe ik deze code werkend moet maken.

Sub Knop6_BijKlikken()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$8:$AB$60"
        .PageSetup.Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintOut , Copies:=1
    End With
End Sub

Ik wil dus dat hij mijn selectie A8 t/m AB60 op 1 pagina passend maakt.
Op dit moment print hij A8 t/m AA60 op 1 pagina en AB8 t/m AB60 op de 2de pagina.
Bij de FitToPages regels geeft hij de foutmelding.
Ik hoop dat ik dit een beetje duidelijk heb geformuleerd,
Alvast bedankt.

 

[edmoor]

Niet duidelijk genoeg als je zegt een foutmelding te krijgen en deze er vervolgens niet bij zet.

 

[sparerib]

ik krijg de volgende foutmelding

 Run-time error '438'
Object doesn't support this property or method

Als ik op debug klik vervolgens geeft hij wel de FitToPage regels geel gemarkeerd aan.

 

[edmoor]

Voor zover ik uit het hoofd weet moet daar ook .PageSetup. voor staan, net zoals bij PrintArea en Orientation

 

[sparerib]

Oke super,
Toen ik PageSetup ervoor zette werkte hij nog niet zoals ut moest, ik kreeg echter wel geen foutmeldingen meer.
Ik heb de volgende code gemaakt nu, en deze werkt naar behoren!

Sub Knop6_BijKlikken()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$8:$AB$60"
        .PageSetup.Orientation = xlPortrait
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesTall = 1
        .PageSetup.FitToPagesWide = 1
        .PrintOut , Copies:=1
    End With
End Sub

Bedankt edmoor dat je me op de goede weg hebt geholpen!