Una cosa como defino la Scala para la hoja en forma horizontal y tamaño carta con el pinturebox por ejemplo para el metodo print yo utilizo esto:
Código:
Printer.Orientation = vbPRORPortrait '2 Orientación Horizontal vbPRORLandscape '1 Horientación Vertical "vbPRORPortrait"
Printer.ScaleMode = vbCentimeters 'Ponemos la Escala en Centimetros
'Margenes
HorizontalMargen = (21.59 - Printer.ScaleWidth) / 2 + 0.1
VerticalMargen = (27.94 - Printer.ScaleHeight) / 2 + 0.1 + 4.3