主题：打印的问题

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

 

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

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

点击浏览该文件:wt.txt

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

呃，是图片

'''
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 t As Row = Tables("企业信息").Current
Dim s1 As String = "企业名称: " &  t("企业名称")
Dim s2 As String =  "企业地址: " &  t("地址")
Dim s3 As String = "电话: " &  t("联系电话")
Dim s4 As String = "传真: " &  t("传真")
Dim s5 As String = "企业税号: " &  t("企业税号")
Dim s6 As String =  "开户银行: " &  t("开户银行")
Dim s7 As String = "银行账号: " &  t("银行账号")
Dim s8 As String = "银行行号: " &  t("银行行号")
Dim s9 As String = "法人代表: " &  t("法人代表")
Dim s10 As String = t("企业英文名称")
Dim s11 As String = t("企业英文地址")
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
doc.PageSetting.PaperKind = 9 '纸张类型改为A4
Doc.PageSetting.LeftMargin = 5.5 '设置左边距
Doc.PageSetting.RightMargin = 5.5 '设置右边距
Doc.PageSetting.TopMargin = 5.5 '设置上边距
Doc.PageSetting.BottomMargin = 5.5 '设置下边距
rt.Style.Padding.Top = 40 '上边距25毫米

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Text = t("企业名称") & " 开piao资料" '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 18, FontStyle.Regular)
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s1 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 10" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s10 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 1" '设置垂直位置
    doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s2 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s11 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 9, FontStyle.Regular)
rt.Width = "120" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 1" '设置垂直位置
    doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s3 & " " & s4 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "120" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s5 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s6 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s7 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s8 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

   rt = New prt.RenderText() '创建文本对象
    rt.Text = s9 '设置文本对象的内容
rt.Style.Font = New Font("微软雅黑", 14, FontStyle.Regular)
rt.Width = "100" '自动设置宽度
rt.X = 55 '指定水平位置
rt.y = "Prev.Bottom + 5" '设置垂直位置
doc.Body.Children.Add(rt) '将文本对象加入到报表

doc.PageSetting.PaperKind = 9 '纸张类型改为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.PageSetting.PaperKind = 9 '纸张类型改为A4
Dim bmp As New bitmap(ProjectPath & "\RemoteFiles\qyzl\开户许可证.jpg" )
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
Dim rm1 As New prt.RenderImage '定义一个图片对象

Doc.PageSetting.LeftMargin = 5.5 '设置左边距
Doc.PageSetting.RightMargin = 5.5 '设置右边距
Doc.PageSetting.TopMargin = 5.5 '设置上边距
Doc.PageSetting.BottomMargin = 5.5 '设置下边距
rm1.Image = bmp '设置图片
rm1.Width = "Auto" '宽度等于页面宽度
rm1.Height = "Parent.Height" '高度由图片大小自动决定
rm1.Style.ImageAlign.KeepAspectRatio = True
rm1.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
doc.Body.Children.Add(rm1) '将图片对象加入报表
doc.Preview() '预览

还有就是预览可以直接黑白的 吗？

哦，那为什么预览有卡顿的现象啊

就是在预览里滑动滑块的时候有点卡，1秒不到，打开时卡顿1.5秒

两个图片一个是2.09M 还有一个是 9.5M