[求助]在制作piao据过程中关于窗口像素尺寸的问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在制作piao据过程中关于窗口像素尺寸的问题！

共有3375人关注过本帖树形打印复制链接主题：[求助]在制作piao据过程中关于窗口像素尺寸的问题！

jlccrtl

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

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

Post By：2016/5/26 11:09:00 [只看该作者]

是放在按钮的click事件下吧

原有代码

e.Form.Page.Width = 189

e.Form.Page.Height = 127

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.AutoRotate = False '禁止自动旋转打印内容

_MyDoc = doc

forms("窗口1").Show

新加代码

Dim doc As New PrintDoc() '定义一个报表

doc.PageSetting.PaperKind = 136 '纸张类型改为B5

doc.Preview() '预览

应该怎么融合在一起

我放前面后面都提示错误

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 11:11:00 [只看该作者]

doc.PageSetting.PaperKind = 136 '纸张类型改为B5

_MyDoc = doc

jlccrtl

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

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

Post By：2016/5/26 11:17:00 [只看该作者]

e.Form.Page.Width = 189

e.Form.Page.Height = 127

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.AutoRotate = False '禁止自动旋转打印内容

doc.PageSetting.PaperKind = 136 '纸张类型改为B5

_MyDoc = doc

forms("窗口1").Show

就是这样修改呗

我在命定窗口输入代码得到的数值136

但是点击打印的时候提示我无效

改为B5的 13就能正常预览

这是什么鬼？？？？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 11:18:00 [只看该作者]

执行代码

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
    If ps.PaperName = "我新增的自定义纸张" Then
        msgbox("paperkind = " & ps.RawKind )
    End If
Next

jlccrtl

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

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

Post By：2016/5/26 11:23:00 [只看该作者]

我在命令窗口输入的

这个代码

已经得到了值是136了

但是不好用呢？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 12:19:00 [只看该作者]

无语，红色代码替换成你自己的纸张名称啊。

jlccrtl

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

加好友

发短信

等级：童狐帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00

Post By：2016/5/26 12:22:00 [只看该作者]

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
    If ps.PaperName = "PA清单用纸" Then
        msgbox("paperkind = " & ps.RawKind )
    End If
Next

这个代码我已经得出值为136了但是写入打印按钮后

点击打印提示无效亲