vba 任意自定义纸张大小、任意位置打印，精确到0.1毫米

使用超简单，可能word、execl等VBA环境使用，目的就是调整方便【功能很多，可以看注释，要熟练使用至少要熟悉C For Window或window API ,了解DC。不在线，别问初级问题，直接拿来用就好。有bug可以留言，可能回复！】

（打印样张，A4纸横放，这是打印到屏幕的效果）

dim oPrinter as new clsPrintCustomPageSize

‘开始打印，返回打印机DC（或用PrinterDC()取)

oPrinter.PrinterBegin "打印机名称（或display）","纸张名称"，“纸张方向”，“纸张宽度”，“纸张长度”

’打印文字

用  oPrinter.PrinterTextOut 或 PrinterExtTextOut 或 PrinterDrawText 打印各种文字

'PrinterTextOut--在指定坐标打印
'PrinterExtTextOut--在指定坐标打印，可以指定字间距
'PrinterDrawText--在指定区域打印，可以自动换行、对齐、居中（垂直、水平）
打印图形或图像，直接API，此类给出DC

‘换新页，支持多页打印

 PrinterNewPage

‘结束打印，打印输出。display输出一个stdPicture对象，可以显示或存成图像

oPrinter.PrinterEnd

'--------------------------------------------------------------------
'以下是新手使用，PrinterBegin打开打印机，P