关于打印——求教~

xiaoid

   
    '设置打印单位为毫米
    Printer.ScaleMode = 6
    '设置起启打印位置（X和Y方向），单位是上面设置的。
    Printer.CurrentX = 1
    Printer.CurrentY = 1
   
    '设置字体属性。注意字的大小不是上面设置的毫米了，是点阵。
    Printer.Font.属性 = 属性值
   
    '设置打印份数，有些打印机驱动不支持，你就要一次一份的打印了。
    Printer.Copies = n
   
    '打印文字内容。
    Printer.Print "汉字"
    '取得"汉字"两个字在打印时要占用的高度和宽度，比较实用的函数，你要预算这些文字会不会超出打印范围
    '如果是你就要剪切到合适的字数再打印。
    n = Printer.TextHeight("汉字")
    n = Printer.TextWidth("汉字")
   
   
    '设置线型，线的粗细。
    Printer.DrawStyle = 1    '线型，详细的查MSDN
    Printer.DrawWidth = 2    '粗细
   
   
    '画线，单位是上面设置的毫米。
    Printer.Line (X1, Y1)-(X2, Y2), Color
    'circle,pset方法都是常用的，不介绍了。
   
   
   
    '结束写入缓冲，送到打印机，开始打印。
    Printer.EndDoc
   
    '开始新的一页。
    Printer.NewPage
   

xiaoid

如果要设置打印的行距和字距，你就要把字符串拆开来，每字字之间加距离，还要计算什么时候换行，换行后离开多少毫米再打印下一行。方法很简单就是计算和写代码的烦事了。

xiaoid

如果要打印宽字和长字，需要调用api函数的drawtext和outtext，
如果要打印图片，就用printer.PaintPicture方法。
方法就这些了。

z_enter

非常感谢~
小弟受教了~

liuhan

用DataReport吧，我也正在使用，这样的表格它能胜任的了。
传上示例一份以供参考： [em5]