Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
landscape printing
what is the order when changeing to landscape printing. Does it need to be
done first or does it matter where in the procedure you do it. Have tried to move pagesetup around for printing still problems here is code I have got As you can see its been put all around. Anyone have an idea Thanks Sheets("Announcer").Select With Selection ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True .pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End With Columns("F").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .MergeCells = False End With Range("G2").Select Sheets("Announcer").Select ' With Selection ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' .pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row 'End With With ActiveSheet.pagesetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = -3 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With ' Range("G2").Select ' Sheets("Announcer").Select ' With Selection ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' .pagesetup.PrintArea = "A2:F" & Cells(Rows.Count, "B").End(xlUp).Row ' End With ActiveSheet.pagesetup.PrintArea = "" Range("G4").Select ' ActiveSheet.pagesetup.PrintArea = "" ' Range("G4").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Landscape printing: userform | Excel Programming | |||
Printing in Portrait & Landscape | Excel Discussion (Misc queries) | |||
Landscape printing? | New Users to Excel | |||
Printing in landscape | Excel Discussion (Misc queries) | |||
landscape printing. | Excel Discussion (Misc queries) |