Thanks, I found some more info on it in the helpfile thanks to your pointer.

So what I'd do is something like (I'd try it out, but I don't have access to either the workbook or a printer right now...):
With Worksheets("Sheet1").Range("Print_Area").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With