举个简单的例子吧,如:
Sub Form_Click()
Printer.FontName="system"
Printer.FontSize=24
Printer.FontItalic=True
Printer.Print Text1.text
Printer.EndDoc
End Sub
在窗体上画一个文本框,运行,输入内容,单击窗体,即可
直接用me.line(x1,y1)-(x2,y2),LineColor,B就可以了
其中的LineColor是颜色代号,也可以省略不写。
有个commondialoge控件,将其属性设置为打印,详细的你仔细查一下,不难!