Printing Macro

**Jiptastic** · 10-10-2012, 05:45 PM

Macro recorder hasn't let me down too many times before, but I can't get it to record a simple print. This is what it recorded when I printed a page. I selected print selection and center on page. It errors on the last line before end sub. I'm sure the code could be simplified considerably, but why won't it run at all? Any ideas?

Print Macro
'
 Range("A2:C17").Select
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

**xladept** · 10-10-2012, 07:54 PM

Hi again Jiptastic,

Try this:

Sub PrintTastic()
With ActiveSheet.PageSetup
        .PrintArea = "$A2:$C17"
        .CenterHorizontally = True
        .CenterVertically = True
    End With
        ActiveSheet.PrintOut: End Sub

**Jiptastic** · 10-11-2012, 10:48 PM

And sub printastic... pretty funny

**Jiptastic** · 10-11-2012, 10:48 PM

So I tried it, and it worked perfectly. It's amazing how I can not know anything about what I'm doing. I can use macro recorder and steal your code to fill the gaps, and everyone at works thinks I'm a genius. Thanks a lot!