Print Macro (Code to change the sheet to Landscape)

**pinkgold** · 02-20-2009, 07:02 AM

Below is the code I currently using.

Sub printrecordandreset()
Application.ScreenUpdating = False
Sheet3.PrintOut , , 1
Application.ScreenUpdating = True
Sheets("StockOutReceipt").Select
Range("A2:L782").Select
Selection.ClearContents
Sheets("FaceSheet").Select
Range("D15").Select

End Sub
At the moment is selecting the correct sheet, as well as the correct information. It is printing it and then reseting the sheet as it should. However it is printing the data in portrait. As a result it is printing a single line of data acorss 3 sheets of A4. In the interest of tidyness and the enviroment, i would like to know how i can amend this code to automatically change the sheet to landscape, before printing.
Thanks

**StephenR** · 02-20-2009, 07:11 AM

Perhaps with this. Record a macro of you setting it to landscape and use that.

Please Login or Register  to view this content.

**pinkgold** · 02-20-2009, 08:13 AM

Thanks for the reply mate. I did actauly have that piece of code. However i cant work out how to implement it into my current code. I simply get an error message. Would it be possible for you to show me how?
Thanks