Printer Eigenschappen voor Documenten

[Kappie]

Hoe kan ik bij de Printer Eigenschappen voor een Excel document komen in VBA?

Handmatig kan het via Bestand-->Pagina Instelling-->Opties. Ik weet helaas niet de juiste methode in VBA om dit scherm op te roepen. Een macro recorder laten meelopen en dan de VBA code eruit vissen hielp helaas ook niet. Evenaans als Google en MSDN

Wie weet het wel?

[Verwijderd]

Bij mij werkt de macrorecorder wel gewoon:

code:

    With ActiveSheet.PageSetup
      .PrintTitleRows = ""
      .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
      .LeftMargin = Application.InchesToPoints(0.75)
      .RightMargin = Application.InchesToPoints(0.75)
      .TopMargin = Application.InchesToPoints(1)
      .BottomMargin = Application.InchesToPoints(1)
      .HeaderMargin = Application.InchesToPoints(0.5)
      .FooterMargin = Application.InchesToPoints(0.5)
      .PrintHeadings = False
      .PrintGridlines = False
      .PrintComments = xlPrintNoComments
      .PrintQuality = 600
      .CenterHorizontally = False
      .CenterVertically = False
      .Orientation = xlLandscape
      .Draft = False
      .PaperSize = xlPaperA4
      .FirstPageNumber = xlAutomatic
      .Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = 100
    End With

en voila, alle instellingen zijn aan te passen

[Kappie]

Klopt ja. Die kreeg ik ook. Maar dat wilde ik niet hebben.
Hij geeft de waarden die je ingevuld heb bij het Pagina Instelling dialoog. Maar er staat geen methode op bij het scherm te komen die je krijgt als je op de Opties knop drukt.

[Kappie]

Gevonden! Het kan via:

code:

Application.Dialogs.(xlDialogPrinterSetup).Show