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
PrintOutcon los parámetrosPrintZoomRowyPrintZoomColumnpara 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.Orientationpara configurar la orientación enwdOrientationLandscape. Además, puede utilizar los parámetrosPrintZoomPaperWidthyPrintZoomPaperHeightpara configurar manualmente el ancho y alto de la hoja impresa.