| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打印预览与保存到excel的离奇问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185428) |
| -- 作者：hitzfeld -- 发布时间：2023/2/22 13:26:00 -- 打印预览与保存到excel的离奇问题？ 碰到个烦恼的问题，窗口打印，预览正常，保存到excel就错位了，想调整也没地方调。 [此贴子已经被作者于2023/2/22 14:15:03编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/2/22 13:36:00 -- 怎么做的打印？ |
| -- 作者：hitzfeld -- 发布时间：2023/2/22 13:51:00 -- 蓝老师，窗口加控件设计的 代码如下： Forms("出库单打印").open forms("出库单打印").Page.LeftMargin = 0 forms("出库单打印").Page.TopMargin = 3 Tables("出库单打印_Table1").DefaultRowHeight = 40 Tables("出库单打印_Table1").Sort = "订单号,工作单号" Dim doc As PrintDoc = Forms("出库单打印").GernatePrintDoc() Doc.PageSetting.LeftMargin = 0 \'设置左边距 Doc.PageSetting.RightMargin = 3 \'设置右边距 doc.PageSetting.Width = 240 \'纸张宽度为100毫米 doc.PageSetting.Height = 250 doc.Preview() forms("出库单打印").close [此贴子已经被作者于2023/2/22 14:15:21编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/2/22 13:53:00 -- 又是怎么保存为execl的？ |
| -- 作者：hitzfeld -- 发布时间：2023/2/22 14:04:00 -- 用预览窗口的保存，选择保存到excel类型的文件
[此贴子已经被作者于2023/2/22 14:15:32编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/2/22 14:11:00 -- 窗口打印预览窗口里的功能都无法正常使用的，只能用于预览。 |