Macro for Printing

[randomwalker]

Hi,

Below are the codes I used to print 2 sheets:

Sub Print11()
Sheets("sheet1").Select
Range("A1:L55").Select
With ActiveSheet.PageSetup
.Orientation = xlPortrait

End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$55"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

Sheets("sheet2").Select
Range("A1:L55").Select
With ActiveSheet.PageSetup
.Orientation = xlPortrait
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$55"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
range("a1").select

End sub

Why range a1:L55 on sheet1 is printed but range a1: I55 on sheet2 is printed? I want the range a1:L55 on sheet2 is printed too. Can anyone help?

Thanks

2009-3-26

 

[dave3009]

Try this

Sub Print11()
Dim a As Long
For a = 1 To 2
    With Sheets("sheet" & a)
        .PageSetup.Orientation = xlPortrait
        .PageSetup.PrintArea = "$A$1:$L$55"
        .PrintOut From:=1, to:=1, Copies:=1, Collate:=True
    End With
Next a
End Sub