你可以在报表中放置若干个Formula,然后在运行时用:.Formulas(1) = """" & varname & """"进行赋值。

解决方案 »

  1.   

    用Printer对象,给你个例子,其他的你可以查联机帮助
    Private Sub PrintVar()
        Printer.Scalemode=vbMillimeters
      

  2.   

    对不起,前面的答复没写完,误按了发送按钮,下面继续
    Private Sub PrintVar()
      Printer.PaperSize = vbPRPSA4      '设置打印纸张大小
      Printer.ScaleMode = vbMillimeters '设置位置定位单位(毫米)
      Printer.FontName = "宋体"          '设置字体
      Printer.FontSize = 16             '设置字体大小
      Printer.FontBold = False          '字体不加粗
      Printer.FontItalic = False        '不是斜体
      Printer.CurrentX=20               '左右位置(20mm)相对于(0,0)
      Printer.CurrentY=30               '上下位置(30mm)相对于(0,0)
      Printer.Print 变量名字             '向打印机对象发送打印变量内容的命令
      Printer.EndDoc                    '结束打印
    End Sub注:如果有多个变量要打印,就不断重复.CurrentX .CurrentY .Print三条代码,如果有多页,在页间用Printer.NewPage方法换页。Print不是Printer对象的方法,而是一条VB命令,语法格式同老式的BASIC语言里的Print命令完全相同。如果你接了多个打印机,还能用Printers集合,而且这个对象不用定义,那来就可以用,就象Screen对象一样。反正我觉得它还是很好用的,我自己开发的MIS系统里就经常用到它。