set print size and type

[fairfaxVB]

Hi Friends,
Could we automatical set print paper size as legal and
layout as landscape?

welcome any codes for this function.
Thanks
FairfaxVB

 

[markdmac]

In what application? I'm guessing you want Word.

With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = InchesToPoints(1)
        .BottomMargin = InchesToPoints(1)
        .LeftMargin = InchesToPoints(1.25)
        .RightMargin = InchesToPoints(1.25)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(8.5)
        .PageHeight = InchesToPoints(14)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With

I hope you find this post helpful.

Regards,

Mark

 

[fairfaxVB]

Mark.
Happy holiday at first.
How to use your code in HTML?
Thanks a lot
FairfaxVB

 

[markdmac]

You will need to enclose it in script tags.

<script language="vbscript"> </script>

I hope you find this post helpful.

Regards,

Mark