Print in one page

[Guest]

Hi All,
I'm trying to programmatically print eaxh sheet in a workbook in one page!!
I've trie to use the 'VPageBreaks' and 'HPageBreaks' but no luck yet. Any
suggestions?
Thanks in advance

 

[NickHK]

You want to print many worksheets on the same piece of paper ?
I don't think can directly.
You can copy your various pieces of data to the same worksheet and then
print that.
Or set up linked pictures of each of data section on another sheet, then
print that.
Or select multiple worksheet and print in the same job, but different pieces
of paper.

NickHK

 

[Ron de Bruin]

Maybe this

Sub tester()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlPortrait
End With
Next sh
End Sub