[求助]点击打印预览后的打印按钮后，纸张变了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]点击打印预览后的打印按钮后，纸张变了

共有4656人关注过本帖树形打印复制链接主题：[求助]点击打印预览后的打印按钮后，纸张变了

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/30 21:29:00 [显示全部帖子]

那就手动添加纸张，然后使用纸张

http://www.foxtable.com/webhelp/scr/2904.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/11 10:22:00 [显示全部帖子]

直接指定使用某一个纸张啊。

http://www.foxtable.com/webhelp/scr/2904.htm

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&replyID=&skin=1

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/11 10:33:00 [显示全部帖子]

设置后指定啊

http://www.foxtable.com/webhelp/scr/1189.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/11 11:39:00 [显示全部帖子]

以下是引用蓝才文百在2019/2/11 10:41:00的发言：

doc.PageSetting.PaperKind = ? 这里如何写？比如我自定义纸张的名称为：1000inv

参考

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
Dim i As Integer = 9
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
    output.show(ps.papername)
    If ps.PaperName = "A4" Then
        msgbox("paperkind = " & ps.RawKind )
        i = ps.rawkind
        Exit For
    End If
Next