打印预览与保存到excel的离奇问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印预览与保存到excel的离奇问题？

共有4892人关注过本帖树形打印复制链接主题：打印预览与保存到excel的离奇问题？

hitzfeld

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：537 积分：5272 威望：0 精华：0 注册：2017/9/1 23:28:00

打印预览与保存到excel的离奇问题？ 发帖心情

Post By：2023/2/22 13:26:00 [显示全部帖子]

碰到个烦恼的问题，窗口打印，预览正常，保存到excel就错位了，想调整也没地方调。

[此贴子已经被作者于2023/2/22 14:15:03编辑过]

hitzfeld

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：537 积分：5272 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：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编辑过]

hitzfeld

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：537 积分：5272 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2023/2/22 14:04:00 [显示全部帖子]

用预览窗口的保存，选择保存到excel类型的文件

[此贴子已经被作者于2023/2/22 14:15:32编辑过]

主题：打印预览与保存到excel的离奇问题？