Macro to print different Worksheets in separate printjobs based on user selection

[Marciboy]

I have a workbook with different worksheets. As these have different orientations you can't simply select and print them, as the page orientation is the same on all of them as on the first page.
Now I would like to create a macro with which I can print the selected pages (which are not always the same) in a separate print job. Can anyone help me?

Many thanks

Marc

 

[Marciboy]

That should work.

Sub Print_Individually()
'
'
' 
'
Dim sh As Worksheet
Dim ssh As Object
Set ssh = ActiveWindow.SelectedSheets
For Each sh In ssh
    With sh
        sh.PrintOut
    End With
Next sh
Sheets("Data").Select
End Sub

 

[Marciboy]

Delete or change Data with the Name of your first Worksheet if you want the Macro to select it after finishing the job.

Sheets("Data").Select