主题：打印的问题

 
此主题相关图片如下：ggmm.jpg

 

我的目的是将上面的几句话，分成4行每行显示各自的内容，请帮我改改

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:wt.txt

看看这里

 

http://www.foxtable.com/webhelp/scr/1183.htm

 

 

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() '预览

我的打印机是彩色的，请问用什么代码把它变成灰度打印

这个意思？

 

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.Style.TextColor = color.gray
    rt.y = "Prev.Bottom + 5" '设置垂直位置
    doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览

 

呃，是图片

'''
Dim doc As New PrintDoc '定义一个报表对象
doc.PageSetting.PaperKind = 77 '纸张类型改为A4
Dim rm As New prt.RenderImage '定义一个图片对象
Doc.PageSetting.LeftMargin = 5.5 '设置左边距
Doc.PageSetting.RightMargin = 5.5 '设置右边距
Doc.PageSetting.TopMargin = 5.5 '设置上边距
Doc.PageSetting.BottomMargin = 5.5 '设置下边距
rm.Image = GetImage(ProjectPath & "\RemoteFiles\qyzl\开户许可证.jpg" ) '设置图片
rm.Width = "Auto" '宽度等于页面宽度
rm.Height = "Parent.Height" '高度由图片大小自动决定
rm.Style.ImageAlign.KeepAspectRatio = True
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览

还有就是如何让上面的图片在预览的时候旋转过来

 

这个意思？黑白打印图片？

 

Dim doc As New PrintDoc() '定义一个报表
Dim ps As new System.Drawing.Printing.PrinterSettings
'ps.Copies = 2   '设置份数
ps.DefaultPageSettings.color = False
doc.Print(ps)     '打印

 

这个意思？ http://www.foxtable.com/webhelp/scr/1190.htm

 

要把图片旋转过来才对