Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Using 2007
The code gets hung up at Range("Print_Area").select ------------------------------------ Public Sub PrintYTD() ' ' Procedure to print Year To Date Sales report. ' ' Range("Print_Area").Select With ActiveSheet.PageSetup .Orientation = xlLandsacpe .FitToPagesWide = 1 .FitToPagesTall = 1 End With Selection.PrintOut Copies:=1 Range("F1").Select End Sub -- William<"M" |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Code to Print Pages | Excel Discussion (Misc queries) | |||
Print Code | Excel Discussion (Misc queries) | |||
Print routine needed for code | Excel Worksheet Functions | |||
Leading zero in zip code won't print | Excel Discussion (Misc queries) | |||
Code for Print Layout | Excel Discussion (Misc queries) |