print 3 sheets

[KlausW]

Hi I would like to print 3 sheets called 1st division, 2nd division. 3rd division, with Range A1 to N40. One side of each. Someone who can help. I use this VBA code.

Any help will be much appreciated.
Many Thanks

Klaus W

Private Sub cbPrint_Click()
    '
    ' Udskriver bestilling
    '
    Range("A1:N40").Select
    ActiveSheet.PageSetup.PrintArea = "A1:N40"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
    :=True
    End Sub

 

[KlausW]

This is more or less the code you used for single sheet printing, changed for multiple sheets.

Sub Knap2_Klik()
Dim shArr, i As Long, a As String
shArr = Array("1st division", "2nd division", "3rd division", "1st shift", "2. Shift","3. Shift","F-division","T-division")
a = ActiveSheet.Name
Application.ScreenUpdating = False
    For i = LBound(shArr) To UBound(shArr)
        Sheets(shArr(i)).Select
            With ActiveSheet.PageSetup
                .PrintArea = "A1:N40"
                .Zoom = False
                .FitToPagesTall = 1
                .FitToPagesWide = 1
            End With
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Next i
Sheets(a).Select
Application.ScreenUpdating = False
End Sub

Thanks allot it's work. Greetings from Denmark Klaus W