精彩编程与编程技巧-VB编程步步高－打印篇（二）...

VB编程步步高－打印篇（二） 

作 者 : 甘冀平
　　 快速打印多个拷贝

　　 当以TrueType字体打印一个文档时，系统将下载打印机需要的字体，这样做将花费很长的时间。你可以通过在一个打印机文档中打印所有的拷贝实现快速打印多个拷贝内容：

    For i = 1 To num_copies
        注释： Print the document here...

        Printer.NewPage
    Next i
    Printer.EndDoc
　　 打印灰色行和区域

　　 黑白打印机不能打印灰色行，但是能通过发抖处理来创建灰色区域。为了创建围绕一个区域的一个灰色边界，使用DrawStyle=vbInvisible（5）来绘制一个窄灰色框，这样就没有了边界。

　　 设置打印的边界

　　 使用打印的scale熟悉来设置边界。设置了这个属性后，坐标（0，0）就映射到你需要加边的地方。比如，下面的代码设置左边界为0.5英寸，上边界为0.75英寸。然后再乘以1440转换为twip。

　　 Printer.ScaleLeft = -0.5 * 1440 
Printer.ScaleTop = -0.75 * 1440 
Printer.CurrentX = 0 
Printer.CurrentY = 0

　　 很遗憾，打印机不能精确地按照你所想的进行打印。试一试使用下面的命令在左上角打印一个1英寸大小的方块：

　　 Printer.Line (1440, 1440)-Step(1440, 1440)