afdrukken op A5 formaat via code

[Friend]

Beste forummers,

Ik gebruik de volgende code om via een opdrachtknop een range van een excel blad te kunnen afdrukken.

Private Sub cmdTba1_Click()
Range("G1:K30").Select
    ActiveSheet.PageSetup.PrintArea = "$G$1:$K$30"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("I4").Select
End Sub

Echter de printer staat op A4.

Hoe kan ik hem in de code laten stoppen dat ik eerst het afdrukvenster krijg en dit kan wijzigen.

Of is er een andere manier?

Friend

 

[cow18]

met activesheet.printpreview in de regel voor die printout ofwel kan je daar ook meegeven dat het A5 moet zijn.
Neem anders met de macrorecorder eens die handelingen op en filter de nuttige regels er uit.

 

[Friend]

Beste Cow18,

Hartelijk dank voor je reactie:thumb:

Heb nu de volgende code waarmee het voor mij is opgelost.

With ActiveSheet.PageSetup
        .PaperSize = xlPaperA5 'Papier formaat
        .RightMargin = Application.InchesToPoints(0.56)
        .LeftMargin = Application.InchesToPoints(0.56)
        .TopMargin = Application.InchesToPoints(0.31)
        .BottomMargin = Application.InchesToPoints(0.31)
    End With

Thanks

Friend