- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]专业报表打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129488)
-- 发布时间：2018/12/29 15:31:00
-- [求助]专业报表打印问题
此主题相关图片如下：qq图片20181229152505.jpg
此主题相关图片如下：qq图片20181229152501.jpg
此主题相关图片如下：qq图片20181229152440.jpg
Dim doc As New PrintDoc
doc = print.单据打印(窗口名称)
If doc Is Nothing Then
Return
End If
doc.AutoRotate = False
Dim ps As New Printing.PrinterSettings
ps.PrinterName = Vars("打印机")
For Each ps1 In ps.PaperSizes
If ps1.PaperName.Equals(Vars("纸张")) Then
\' doc.PageSetting.Width = 235
\' doc.PageSetting.Height = 138
doc.Document.DefaultPageSettings.PaperSize = ps1
doc.PageSetting.BottomMargin = Decimal.Parse(Vars("下边距"))
doc.PageSetting.TopMargin = Decimal.Parse(Vars("上边距"))
doc.PageSetting.LeftMargin = Decimal.Parse(Vars("左边距"))
doc.PageSetting.RightMargin = Decimal.Parse(Vars("右边距"))
doc.PageSetting.Landscape = IIf(Vars("纵向") = 0, False, True)
doc.PrinterName = Vars("打印机")
doc.Print()
End If
Next
-- 发布时间：2018/12/29 15:42:00
--
一般是打印宽度超过了打印机，减少代码测试
Dim doc As New PrintDoc
doc = print.单据打印(窗口名称)
If doc Is Nothing Then
Return
End If
doc.AutoRotate = False
doc.PageSetting.Width = 200
doc.PageSetting.Height = 138
doc.PageSetting.Landscape = "纵向"
doc.PrinterName = Vars("打印机")
doc.Print()
-- 发布时间：2018/12/29 15:45:00
--
以下是引用有点蓝在2018/12/29 15:42:00的发言：
一般是打印宽度超过了打印机，减少代码测试
一般是打印宽度超过了打印机，减少代码测试
Dim doc As New PrintDoc
doc = print.单据打印(窗口名称)
If doc Is Nothing Then
Return
End If
doc.AutoRotate = False
doc.PageSetting.Width = 200
doc.PageSetting.Height = 138
doc.PageSetting.Landscape = "纵向"
doc.PrinterName = Vars("打印机")
doc.Print()
是设置宽度报表的宽度？
纸张长度为241宽度调小没问题吗？
-- 发布时间：2018/12/29 15:47:00
--
使用不同的宽度和高度进行测试