-- 作者:xxxxxx
-- 发布时间:2013/4/26 12:35:00
-- 在设置打印的时候 怎样在下面的代码中加入
在设置打印的时候 怎样在下面的代码中加入
“自动换行 和 指定某一列数据居中呢?”
With Tables("xxx价格表").PrintInfo .Title = "xxx价格表xx" \'用于设置标题 .PageFooter = "第[PageNo]页,共[PageCount]页" \'用于设置页脚 .PageFooterLine = True \'页脚之上是否显示一条分割线 .PaperKind = 9 \'指定纸张类型 9为A4纸张 .FitIntoPage = True \'是否自动适用页宽 .LandScape = True \'是否横向打印 End With Tables("xxx价格表").Print(True,False)
此主题相关图片如下:333ox7.jpg
|