Private Sub Command1_Click()
    Me.Line (100, 100)-(2000, 500), 0, B
    Me.Circle (300, 800), 100, 0
    Me.CurrentX = 100
    Me.CurrentY = 1000
    Me.Font.Bold = True
    Me.Font.Italic = True
    Me.Font.Underline = True
    Me.Font.Size = 20
    Me.Print "文本信息"
    Me.Line (100, 1500)-(2000, 2000), 0, B
    Me.Font.Bold = False
    Me.Font.Italic = False
    Me.Font.Underline = False
    Me.Font.Size = 9
    Me.CurrentX = 100 + (2000 - 100 - Me.TextWidth("表格内文本居中")) / 2
    Me.CurrentY = 1500 + (2000 - 1500 - Me.TextHeight("表格内文本居中")) / 2
    Me.Print "表格内文本居中"
    'Printer.EndDoc '如果把ME替换为Printer则需要这句话
End Sub


上面是一个Form的绘图，如果你想把这些东西打印出来，只需把所有的"ME"替换为"Printer"然后在最后加上Printer.EndDoc 就可以打印了


小技巧：
    做打印，先把要绘制的东西画在Form或者Picture内，满意后直接把当前内容作为打印预览，复制代码替换到控件名称就是打印过程。