Multiple Print Buttons in one sheet

[mholt2110]

Hi is it possible to make a print macro for a button?

Im looking to have one every 31 rows, which will print only the area its within.

my spead sheet has data in sections for each week and id like to print 2 pages for each week, the section id like to print are as follows

-week 1 - A1:Y31 & Z1:AQ31 with the button placed in W30 to print both
-week 2 - A32:Y62 & Z32:AQ62 with the button placed in W61 to print both
-week 3 - A63:Y93 & Z63:AQ93 with the button placed in W92 to print both

And so on is this possible? I can attach the spreadsheet if that would help. thanks Mholt. <!-- / message --><!-- BEGIN TEMPLATE: ad_showthread_firstpost_sig --><!-- END TEMPLATE: ad_showthread_firstpost_sig -->

 

[mholt2110]

Question also on this forum.

http://www.excelforum.com/excel-programming/696160-multiple-print-buttons-on-one-sheet.html

 

[mholt2110]

Fixed

Sub printweek0()
Dim x As Long
Dim a As String
x = InputBox("Enter week number to print")
a = "A" & (x - 12) * 31 + 1 & ":AQ" & (x - 11) * 31
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = a
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.590551181102362)
        .RightMargin = Application.InchesToPoints(0.590551181102362)
        .TopMargin = Application.InchesToPoints(0.590551181102362)
        .BottomMargin = Application.InchesToPoints(0.590551181102362)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = True
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.printout Copies:=1, Collate:=True
MsgBox "complete"
End Sub