以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印区域调整问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141885)

--  作者:bressernon
--  发布时间:2019/10/13 11:27:00
--  打印区域调整问题
做了一个窗口打印,需要打印一下二维码,设置了一下打印区域。
    Dim grp As WinForm.GroupBox = e.Form.Controls("打印区域2")
    \'e.Form.Page.Width = 80
    \'e.Form.Page.Height = 40
    \'e.Form.Page.LeftMargin = 0
    \'e.Form.Page.TopMargin = 0
    Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
    Doc.AutoRotate = False
    doc.PageSetting.Width = 80 \'纸张宽度为100毫米
    doc.PageSetting.Height = 40 \'纸张高度为120毫米
    doc.PageSetting.LeftMargin = 0
    doc.PageSetting.RightMargin = 0
    doc.PageSetting.TopMargin = 0
    doc.PageSetting.BottomMargin = 0
\'   doc.PageSetting.Landscape = True
    \'doc.AutoRotate = False
    doc.PrinterName = "TTP-245"
    doc.Preview()

发现有一个问题,就是打印预览的时候,这个打印区域始终调整到纸张的最边上。
打印机也已经把页边距设置为0了。

请问这个如何解决?




--  作者:bressernon
--  发布时间:2019/10/13 11:31:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:打印区域7.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:打印区域8.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:打印区域9.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2019/10/13 22:49:00
--  
把这个窗口模板导出发上来测试一下