Vba: Print an Excel sheet to multiple pdf pages - vba

Question

I'll try to keep this short. I'm working on a Excel project and I have to print at the end a single sheet, the problem is the printed PDF is too small, so I've looked up for it in different forums and I found out that I had to turn .FitToPagesTall = 0 In order that the excel worksheet don't get fit to one pdf page. The problem I'm struggling with now is that even if the pdf pages are bigger than before, It still small and It's making it hard to read. My idea is to print each 30 rows (for example) in a pdf page (Page1 --> Range("A1:E30"), Page2 --> Range("A31:E60").. etc, you got the idea)
Any ideas how I can do that please ?
Thanks in advance !
Update #1: Here's a screen shot of only a slice of my data range
Even if I set the .PrintArea to A:D, it still give the same result. To rephrase my request: I'm looking for a way to print different ranges in multiple pages.
thanks everyone for giving me a part out of ur time.

Answer 1

try to adapt the Orientation and fit the data horizontally, something like this :
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" 'to repeat your header on each page
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape ' or xlPortrait
.Zoom = False
.FitToPagesWide = 1 'fit to wide only
.FitToPagesTall = 0
End With

Answer 2

EDIT: auto-selection code added
My understanding of the question: how to print multiple selections from the same worksheet into PDF containing multiple pages (each selection = new page)
Multiple selection (ctlr) & Print Selection
Range("A1:E30, A31:E60") _
.PrintOut Copies:=1, Collate:=True 'your ranges in the quotes
'prompts user to choose destination where to save to
It is equal to manually selecting multiple ranges (holding ctrl) and selecting print selection when printing.
Edit - Code added
If you like the above idea, you might like the following code?
It constructs a string, such as: "A1:D30,A31:D60,A61:D90", which specifies ranges to be selected. Assumptions is that data is in columns A-D and last row can be found in column A. You can specify how many rows to print in my_step.
Sub select_and_print()
Dim s_rn, s_range As String
Dim i, my_step As Integer
Dim selections_count As Single
my_step = 30 'how many rows to include on 1 page
'to prevent extra page in some cases:
selections_count = WorksheetFunction.RoundUp((Cells(Rows.Count, 1).End(xlUp).Row / my_step), 0)
'String, which specifies selections in ws, between columns A - D
For i = my_step To selections_count * my_step Step my_step:
s_rn = "A" & (i - my_step + 1) & ":D" & i
If i = my_step Then
s_range = s_rn
Else
s_range = s_range + "," + s_rn
End If
Next i
'selection & print
Range(s_range).PrintOut Copies:=1, Collate:=True
End Sub

Answer 3

Building off #JC Guidicelli's answer, the important things I was missing was .FitToPagesTall = False. I don't know why Excel requires False and not 0, but that seems to be the way it is.
Sheets(Array("Sheet 1", "Sheet 2", "Sheet 3")).Select
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
and in my export command, I needed IgnorePrintAreas:=True.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=<file path>, Quality:=xlQualityStandard, IgnorePrintAreas:=True
This gives me a PDF with all the data from Sheets 1, 2, and 3, and if data from those sheets is more than a page, it splits it over multiple pages without zooming it in.