此主题相关图片如下：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.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

要把图片旋转过来才对