51Testing软件测试论坛

标题: word里的printOut方法怎么设置横向打印？ [打印本页]

作者: 就是爱测试 时间: 2018-5-3 16:39
标题: word里的printOut方法怎么设置横向打印？
word里的printOut方法怎么设置横向打印？

作者: libingyu135 时间: 2019-3-14 10:22
直接用printOut方法确实不行，但是可以通过先设置ActiveDocument的页面设置来再执行printOut来实现，代码如下：

word.ActiveDocument.PageSetup.Orientation = 1;//0纵向，1横向

word.ActiveDocument.PageSetup.TwoPagesOnOne = false;//true双面打印，false单面打印

更多设置如下：

下面的WAPP是事先定义的word文档工程变量。

以下代码为通过VBA代码来页面的页边距、纸张纵向、装定线、页眉页静等。

WApp.ActiveDocument.PageSetup.LineNumbering.Active =0; 行编号

WApp.ActiveDocument.PageSetup.Orientation =Microsoft.Office.Interop.Word.WdOrientation.wdOrientPortrait; 页面方向

WApp.ActiveDocument.PageSetup.TopMargin =WApp.CentimetersToPoints(float.Parse
   (2.54)); 上页边距

WApp.ActiveDocument.PageSetup.BottomMargin = WApp.CentimetersToPoints(float.Parse
   (2.54)); 下页边距

WApp.ActiveDocument.PageSetup.LeftMargin = WApp.CentimetersToPoints(float.Parse
   (3.17)); 左页边距

WApp.ActiveDocument.PageSetup.RightMargin = WApp.CentimetersToPoints(float.Parse
   (3.17)); 右页边距

WApp.ActiveDocument.PageSetup.Gutter = WApp.CentimetersToPoints(float.Parse(0)); 装订线位置

WApp.ActiveDocument.PageSetup.HeaderDistance = WApp.CentimetersToPoints(float.Parse
   (1.5)); 页眉

WApp.ActiveDocument.PageSetup.FooterDistance = WApp.CentimetersToPoints(float.Parse
   (1.75)); 页脚

WApp.ActiveDocument.PageSetup.PageWidth = WApp.CentimetersToPoints(float.Parse
   (21)); 纸张宽度

WApp.ActiveDocument.PageSetup.PageHeight = WApp.CentimetersToPoints(float.Parse
   (29.7)); 纸张高度

WApp.ActiveDocument.PageSetup.FirstPageTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultBin; 纸张来源

WApp.ActiveDocument.PageSetup.OtherPagesTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultBin; 纸张来源

WApp.ActiveDocument.PageSetup.SectionStart = Microsoft.Office.Interop.Word.WdSectionStart.wdSectionNewPage; 节的起始位置：新建页

WApp.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = 0; 页眉页脚-奇偶页不同

WApp.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = 0; 页眉页脚-首页不同

WApp.ActiveDocument.PageSetup.VerticalAlignment = Microsoft.Office.Interop.Word.WdVerticalAlignment.wdAlignVerticalTop; 页面垂直对齐方式

WApp.ActiveDocument.PageSetup.SuppressEndnotes =0; 不隐藏尾注

WApp.ActiveDocument.PageSetup.MirrorMargins = 0; 不设置首页的内外边距

WApp.ActiveDocument.PageSetup.TwoPagesOnOne = false; 不双面打印

WApp.ActiveDocument.PageSetup.BookFoldPrinting =false; 不设置手动双面正面打印

WApp.ActiveDocument.PageSetup.BookFoldRevPrinting =false; 不设置手动双面背面打印

WApp.ActiveDocument.PageSetup.BookFoldPrintingSheets = 1; 打印默认份数

WApp.ActiveDocument.PageSetup.GutterPos = Microsoft.Office.Interop.Word.WdGutterStyle.wdGutterPosLeft; 装订线位于左侧

WApp.ActiveDocument.PageSetup.LinesPage = 40; 默认页行数量

WApp.ActiveDocument.PageSetup.LayoutMode = Microsoft.Office.Interop.Word.WdLayoutMode.wdLayoutModeLineGrid; 版式模式为只指定行网格

作者: qqq911 时间: 2019-3-14 10:52
需要用vba实现

作者: jingzizx 时间: 2019-3-14 12:01
说的很详细

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)