Sub InitPrint()　　　　　　　 '这个函数用来初试化打印机，请最先调用

Printer.Orientation = 2　　　　'设置为横向打印，改为1就是纵向了

Printer.ScaleMode = 6 '设定单位为毫米

Printer.ScaleLeft = 30　　　　 '设置左边界

Printer.ScaleTop = 30 '设置上边界

Printer.ScaleHeight = 300　　　'设置高度

Printer.ScaleWidth = 200 　　　'设置宽度

End Sub

Sub PrintStr(ByVal X As Long, ByVal Y As Long, ByVal Fntsize As Integer, ByVal Str As String)　　　　　'这个函数用来在指定位置用指定的字体大小打印指定的字符串

Printer.CurrentX = X '指定X坐标

Printer.CurrentY = Y '指定Y坐标

Printer.FontSize = Fntsize '指定字体大小

Printer.Print Str '打印字符串

End Sub

Printer.Line (X1, Y1)-(X2, Y2)　'这个是Printer对象自带的方法，可以打印一条线

Printer.PaintPicture　　'这也是Printer对象自带的方法，可以在指定位置打印图片

PaintPicture这个方法的参数可以参考一下MSDN，比较多，我这里就不说了。

当你调用这些函数和方法之后，最后还需要用：

Printer.EndDoc 这个方法来将你的最终结果打印到纸上，如果不用这个语句，你的打印机是不会打印的。