Print in one page
 

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

Print in one page
 

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

"Lp12" wrote in message
...
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

Print in one page
 

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



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Lp12" wrote in message ...
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