- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：关于报表打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102144)
-- 发布时间：2017/6/14 6:53:00
-- 求助：关于报表打印问题
一个电脑安装了2个打印机，其中1个是标签打印机，且设为默认打印机，
报表生成后，显示是A4格式，点击打印时，选择A4纸打印机，点击确定后，报表就会变成标签打印的页面规格，完全变小了。
然后如果把A4纸打印机设置为默认打印机的话就不会出现这个问题。
怎么解决？
-- 发布时间：2017/6/14 10:04:00
--
嗯嗯，这个是控件本身的bug。
你试试这种方法把，预览和打印分开，自己做一个打印按钮打印
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:嵌入专业报表.table |
| 下载信息 [文件大小：296.0 KB 下载次数：39] | |
 点击浏览该文件:嵌入专业报表.table |
-- 发布时间：2017/6/15 6:29:00
--
我的是开发板，打不开案例。
我的试用版已经过期了。
-- 发布时间：2017/6/15 8:32:00
--
给个开发板的？或者给源代码？
-- 发布时间：2017/6/15 8:59:00
--
下载开发版的地方下载商业版安装使用即可
-- 发布时间：2019/1/17 16:10:00
-- 自定义doc打印界面
收藏。
1.在全局代码定义对象
Public _MyRDL As C1.Win.C1Preview.C1PrintPreviewControl
Public _MyDoc As C1.C1Preview.C1PrintDocument
2.新建窗体：frmPrintViewer，添加一个 Panel1 空间，Fill
AfterLoad写入代码：
_MyRDL = New C1.Win.C1Preview.C1PrintPreviewControl
_MyRDL.Document = _MyDoc
Dim p As WinForm.Panel = e.Form.controls("Panel1")
_MyRDL.Dock = 5
p.BaseControl.Controls.Add(_MyRDL)
_MyDoc.Generate() \'这句替代 doc.Preview() \'预览
_MyRDL.Toolbars.File.Visible = False
AfterClose写入代码：
_MyDoc.Dispose()
_MyDoc = Nothing
_MyRDL.Dispose()
_MyRDL = Nothing
3.在需要打印的按钮写入代码：
Dim Doc As new PrintDoc
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "haohaohaohoassskankanxxxxxxx" \'设置文本对象的内容
Doc.Body.Children.Add(rt)
_MyDoc = Doc
forms("frmPrintViewer").Show
Public _MyRDL As C1.Win.C1Preview.C1PrintPreviewControl
Public _MyDoc As C1.C1Preview.C1PrintDocument
2.新建窗体：frmPrintViewer，添加一个 Panel1 空间，Fill
AfterLoad写入代码：
_MyRDL = New C1.Win.C1Preview.C1PrintPreviewControl
_MyRDL.Document = _MyDoc
Dim p As WinForm.Panel = e.Form.controls("Panel1")
_MyRDL.Dock = 5
p.BaseControl.Controls.Add(_MyRDL)
_MyDoc.Generate() \'这句替代 doc.Preview() \'预览
_MyRDL.Toolbars.File.Visible = False
AfterClose写入代码：
_MyDoc.Dispose()
_MyDoc = Nothing
_MyRDL.Dispose()
_MyRDL = Nothing
3.在需要打印的按钮写入代码：
Dim Doc As new PrintDoc
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "haohaohaohoassskankanxxxxxxx" \'设置文本对象的内容
Doc.Body.Children.Add(rt)
_MyDoc = Doc
forms("frmPrintViewer").Show
[此贴子已经被作者于2019/1/17 16:10:15编辑过]