Foxtable(狐表)用户栏目专家坐堂 → 专业报表如何设置自定义纸张


  共有2438人关注过本帖树形打印复制链接

主题:专业报表如何设置自定义纸张

帅哥哟,离线,有人找我吗?
llh0824
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:226 积分:1655 威望:0 精华:0 注册:2015/11/26 16:03:00
专业报表如何设置自定义纸张  发帖心情 Post By:2019/9/19 8:52:00 [只看该作者]

        Dim zzlx As String
        
        Dim cps As new CustomPaperSize.CustomPaperSize()
        cps.SetPrintForm(dyj.Text,"danju", 100*24, 100*14)
        
        Dim prtdoc As new Printing.PrintDocument()
        prtdoc.PrinterSettings.PrinterName = dyj.Text
        For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  '生成打印机的纸张下拉列表
            If ps.PaperName = "danju"  Then    '''' "我新增的自定义纸张" Then
                zzlx =  ps.RawKind
            End If
        Next

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.PaperKind = zzlx

(错误提示:无效的PaperKind代码210。)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/19 10:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16015 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2020/9/18 21:07:00 [只看该作者]

 cps.SetPrintForm(dyj.Text,"danju", 100*24, 100*14)

请问老师,为啥有100*24,100*14二个呢?自定义不是一个一个定义吗?为啥出现二个?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/19 8:59:00 [只看该作者]

一个是宽,一个是高,单位是毫米

实际上就是cps.SetPrintForm(dyj.Text,"danju", 2400, 1400)

 回到顶部
帅哥哟,离线,有人找我吗?
xxfoxtable
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1711 积分:16015 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2020/9/19 11:04:00 [只看该作者]

 我试了,对网络打印机不管用

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/19 11:17:00 [只看该作者]

那只能手工添加默认纸张了

 回到顶部