Macro for changing print settings

[Guest]

I have a macro for converting info off of a large sheet (Print features
landscape with legal paper) to info on a small sheet.

I need a macro to change the print settings back to Portrait & regular paper.

Thanks

 

[Jack Sheet]

Have you tried recording a macro, changing the print settings, stop the
recording and view the results?

 

[Guest]

I will try again, maybe I didn't press o.k. duh.

 

[Guest]

I guess it would be like this:

Sub PrintQuote()

With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperLetter
End With

End Sub