KlausW
Active Member
- Joined
- Sep 9, 2020
- Messages
- 378
- Office Version
- 2016
- Platform
- Windows
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
Any help will be much appreciated.
Many Thanks
Klaus W
VBA Code:
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