Changing Pagesize

[Vincent]

(sorry - posted in (probably) wrong group. This seems like a better place to
post my question...)

I live in a country that has the gal to use another default pagesize than
Letter-size. Ever so often I pick something from a webpage. The problem
occurs when I try to print…
If I fail to manually change the pagesize from this format to the format
used here (A4), the printer halts. The only way to solve this is to walk up
to the printer and press continues. This is a drag…
What I would like is some sort of code that automatically changes the
current pagesize to the size accepted by my printer. Alas, I have no idea how
to do this. Ideas anyone?

--

 

[Graham Mayor]

Something like

Sub PrintA4()
With ActiveDocument
If .PageSetup.Orientation = wdOrientPortrait Then
.PageSetup.PageHeight = CentimetersToPoints(29.7)
.PageSetup.PageWidth = CentimetersToPoints(21)
Else
.PageSetup.PageHeight = CentimetersToPoints(21)
.PageSetup.PageWidth = CentimetersToPoints(29.7)
End If
.PrintOut
End With
End Sub

should work. http://www.gmayor.com/installing_macro.htm
You can also do it by setting the scaling option in the print dialog.
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Vincent]

Clearly I don't do this often enough.
This delivers 85% of what I searched for (and 150% of what I managed to
express...)
Tnx to these lines I'm positive that I won't take me long to figure out what
it is I wanted, apart from having to rise from my chair and physically walk
to the printer(!) that is.
Great, thank you all...

Vincent