| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打印单据时即打即停的功能，有解决方案吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141497) |
| -- 作者：xxfoxtable -- 发布时间：2019/9/30 16:21:00 -- 打印单据时即打即停的功能，有解决方案吗？ 打印单据时即打即停的功能，有解决方案吗？ |
| -- 作者：wei0769 -- 发布时间：2019/9/30 16:29:00 -- 按下打印机的暂停键就好 |
| -- 作者：有点蓝 -- 发布时间：2019/9/30 16:29:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75805&skin=0 |
| -- 作者：xxfoxtable -- 发布时间：2019/9/30 16:43:00 -- 怎么控制文件的高度呢？因为有时候字体大小不一样，这个高度怎么确定呢？ |
| -- 作者：有点蓝 -- 发布时间：2019/9/30 16:53:00 -- 使用g.MeasureString控制，如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100001&replyID=688290&skin=1 |
| -- 作者：xxfoxtable -- 发布时间：2019/9/30 21:10:00 -- 没看懂怎么知道的纸高度 |
| -- 作者：有点蓝 -- 发布时间：2019/9/30 21:39:00 -- 上传实例说明要什么效果 |
| -- 作者：xxfoxtable -- 发布时间：2019/9/30 22:13:00 -- 一般打印，打印完了，直接走A4纸那些长度，不管打印多少，打印二行，也是走纸A4那么长，现在很多商业软件有即打即停功能，有二行数据，打完就停，有五行数据，打印完马上停止，都不会走A4那么长 |
| -- 作者：有点蓝 -- 发布时间：2019/9/30 22:44:00 -- Dim str As String = "前面提到所有控件都是派生自WinForm.Control类型,初学者可能不能理解""派生""的意义.以汽车作为例子:汽车是最基本的类型,它定义了汽车最基本的属性和方法,然后在汽车这个类型的基础上,派生出轿车?火车?救护车?消防车等类型,这些类型定义继承了汽车这个基本类型的所有属性,同时增加了自己独有的属性和方法.对于窗口中的控件来说,WinForm.Control是最基本的类型,它定义了作为控件最基本的属性和方法,其它所有控件都派生于这个基本类型,在WinForm.Control的基础上增加了自己独有的属性和方法.我们很少需要直接使用WinForm.Control类型的变量,而是直接使用WinForm.Button这种直接表明控件类型的变量,因为前者无法访问WinForm.Button专有的属性和方法." Dim doc As New PrintDoc \'定义一个报表 Doc.PageSetting.Width = 100 \'指定打印纸张宽度 Doc.PageSetting.TopMargin = 0 \'设置边距 Doc.PageSetting.RightMargin= 0 Doc.PageSetting.LeftMargin= 0 Doc.PageSetting.BottomMargin= 0 Dim rt As New prt.RenderText \'定义一个文本对象 rt.Text = str \'设置文本对象的内容 rt.X = 5 \'文本打印位置 rt.Y = 5 rt.Width = 90 \'文本区域打印宽度 rt.Style.Borders.All = New prt.Linedef(0.3, Color.Red) \'设置边框 Dim g As Graphics = basemainform.CreateGraphics g.PageUnit = GraphicsUnit.Millimeter \'设置计算打印高度时的单位为毫米,和专业报表的单位一致 Dim size As Object size = g.MeasureString(str, rt.Style.Font, 90) \'按文本区域打印宽度测量打印的内容的大小 doc.Body.Children.Add(rt) \'将文本对象加入到报表 Dim h As Integer = size.height Doc.PageSetting.height = h \'把打印纸张高度设置为打印的内容的高度 doc.Preview() \'预览\'
|
| -- 作者：xxfoxtable -- 发布时间：2020/3/3 21:18:00 -- 老师如果打印的是数据库里面的内容，每行尾是不是要加一个加车再生成str ? |