主题：打印的问题

看看这里

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() '定义一个报表
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

先把图片旋转，在添加进来

Dim bmp As New bitmap("d:\test.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)

rm.Image = bmp

运行什么很慢呢？贴出代码测试。

这个不可以。如果图片是彩色的，那你要把图片处理成黑白才行，比较麻烦，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101287&skin=0

卡顿多久？是不是你图片太大导致的？

你试试换一个小一点的图片测试呢？