proba configurando el obgeto printer
select case hoja
case "A4"
Printer.Width = 297 'hoja DIN A4
Printer.Height = 210 'hoja DIN A4
case "CARTA"
Printer.Width = 279 'hoja DIN carta
Printer.Height = 216 'hoja DIN carta
END SELECT
SELECT CASE ORIENTACION
CASE "NORMAL"
Printer.Orientation = 1
CASE "APAISADA"
Printer.Orientation = 2
END SELECT
donde "hoja" es el tamaño del papel y"orientacion" bueno esta de mas decirlo...
saludos...