Imprimir varias páginas en una sola página en orientación horizontal.
Estoy tratando de imprimir cuatro páginas con orientación horizontal de un documento en una cuadrícula en una sola página en orientación horizontal utilizando VBA con:
ActiveDocument.PageSetup.Orientation = wdOrientationLandscape
ActiveDocument.PrintOut PrintZoomRow:=2, PrintZoomColumn:=2
Sin embargo, esto imprime las cuatro pequeñas páginas con orientación horizontal en una página con orientación vertical, lo que las deja demasiado pequeñas y con demasiado espacio libre entre ellas verticalmente.
Consulté la documentación de PrintOut, pero no encontré nada relacionado con la orientación.
Intenté invertir el orden de los PrintZooms.
También intenté configurar manualmente el ancho y la altura del papel impreso con PrintZoomPaperWidth y -Height, lo que provocó que las páginas pequeñas se cortaran y la impresión se siguiera realizando en modo vertical.
davy.ai
Solución
Puede intentar utilizar el método
PrintOut
con los parámetrosPrintZoomRow
yPrintZoomColumn
para imprimir las cuatro páginas en orientación horizontal en una cuadrícula en una página en orientación horizontal. Para asegurarse de que las páginas se impriman en la orientación correcta, puede utilizar la propiedadActiveDocument.PageSetup.Orientation
para configurar la orientación enwdOrientationLandscape
. Además, puede utilizar los parámetrosPrintZoomPaperWidth
yPrintZoomPaperHeight
para configurar manualmente el ancho y alto de la hoja impresa.