以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打印的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125716) |
||||
-- 作者:hongyefor -- 发布时间:2018/10/4 17:56:00 -- 打印的问题
我的目的是将上面的几句话,分成4行每行显示各自的内容,请帮我改改
|
||||
-- 作者:有点甜 -- 发布时间:2018/10/4 18:12:00 -- 看看这里
http://www.foxtable.com/webhelp/scr/1183.htm
|
||||
-- 作者:有点甜 -- 发布时间:2018/10/4 18:13:00 -- Dim doc As New PrintDoc \'定义一个报表 Dim rt As New prt.RenderText \'定义一个文本对象 Dim s1 As String = "新华网绵阳5月16日电(记者孙承斌)16日上午,在四川抗震救灾的" Dim s2 As String = "危急时刻,中共中央总书记?国家主席?中央军委主席胡涛乘飞机赶往四川" Dim s3 As String = "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾第一线的部队官兵?公" Dim s4 As String = "省地震灾区,慰问灾区干部群众,看望奋战在抗震救灾" rt.Text = "胡涛抵达四川绵阳慰问" \'设置文本对象的内容 Dim s() As String rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中 rt.Style.FontBold = True \'字体加粗 rt.Style.FontSize = 16 \'字体大小为16磅 doc.Body.Children.Add(rt) \'将文本对象加入到报表 Dim ary() = {s1, s2, s3, s4} For i As Integer = 0 To 3 rt = New prt.RenderText() \'创建文本对象 rt.Text = ary(i) \'设置文本对象的内容 rt.Width = "30" \'自动设置宽度 rt.X = 55 \'指定水平位置 rt.y = "Prev.Bottom + 5" \'设置垂直位置 doc.Body.Children.Add(rt) \'将文本对象加入到报表 Next doc.Preview() \'预览 |
||||
-- 作者:hongyefor -- 发布时间:2018/10/4 19:18:00 -- 我的打印机是彩色的,请问用什么代码把它变成灰度打印 |
||||
-- 作者:有点甜 -- 发布时间:2018/10/4 19:26:00 -- 这个意思?
Dim doc As New PrintDoc \'定义一个报表
|
||||
-- 作者:hongyefor -- 发布时间:2018/10/4 19:32:00 -- 呃,是图片 \'\'\' [此贴子已经被作者于2018/10/4 19:32:18编辑过]
|
||||
-- 作者:hongyefor -- 发布时间:2018/10/4 19:34:00 -- 还有就是如何让上面的图片在预览的时候旋转过来 |
||||
-- 作者:有点甜 -- 发布时间:2018/10/4 19:35:00 -- 以下是引用hongyefor在2018/10/4 19:32:00的发言:
呃,是图片
[此贴子已经被作者于2018/10/4 19:32:18编辑过]
这个意思?黑白打印图片?
Dim doc As New PrintDoc() \'定义一个报表 |
||||
-- 作者:有点甜 -- 发布时间:2018/10/4 19:37:00 -- 以下是引用hongyefor在2018/10/4 19:34:00的发言:
还有就是如何让上面的图片在预览的时候旋转过来
这个意思? http://www.foxtable.com/webhelp/scr/1190.htm
|
||||
-- 作者:hongyefor -- 发布时间:2018/10/4 19:48:00 -- 要把图片旋转过来才对 |