vbs如何设置 txt 或 doc,横向打印、纸张类型
发布网友
共1个回答
热心网友
其实很简单,将常量换成相应数值，如下：
Dim woexcel
Set woexcel = CreateObject("Excel.Application")
woexcel.DisplayAlerts = False
woexcel.Visible = True
woexcel.Workbooks.Open ("c:\activex.xlsx")
'将工作表第一张表格设置为活动
woexcel.Worksheets(1).Activate
'设置纸张类型
woexcel.ActiveSheet.PageSetup.PaperSize = 9
'打印方向设置为横向：
woexcel.ActiveSheet.PageSetup.Orientation = 2
说明：
'xlLandscape 2 横向模式。
'xlPortrait 1 纵向模式。
'xlPaper11x17 17 11 英寸 x 17 英寸
'xlPaperA3 8 A3（297 毫米 x 420 毫米）
'xlPaperA4 9 A4（210 毫米 x 297 毫米）
'xlPaperA4Small 10 A4（小）（210 毫米 x 297 毫米）
'xlPaperA5 11 A5（148 毫米 x 210 毫米）
'xlPaperB4 12 B4（250 毫米 x 354 毫米）
'xlPaperB5 13 A5（148 毫米 x 210 毫米）
vba中支持系统常量，但是vbs中没有这些常量，应该换成相应数值，数值可以在vba帮助中查找。追问楼上的用法是excel用的,word及记事本,有些语法不能用
