VB編程經驗之談----打印篇

2019-11-18 17:40:03

字體：大中小

來源：轉載

供稿：網友

打印多頁RichText

　　打印對象在處理RichTextBox時由于忽視了RichText代碼將不會工作得很好。為了打印RichTextBox，要使用Sel
　　5、使用LoadFile重新啟動編輯版本。

　　打印MSFlexGrid

　　這里有一個快速打印MSFlexGrid控件內容的方法：

　　Printer.PaintPictureMSFlexGrid_Name.Picture,0,0

　　Printer.EndDoc

　　如果想打印滿頁面的整個長度，請在前面添加下面2個語句：

　　Dimold_widthasInteger

　　MSFlexGrid_Name.width=printer.width

　　然后，再在尾部添加：

　　MSFlexGrid_Name.width=old_width　　

　　快速打印多個拷貝

　　當以TrueType 字體打印一個文檔時，系統將下載打印機需要的字體，這樣做將花費很長的時間。你可以通過在一個打印機文檔中打印所有的拷貝實現快速打印多個拷貝內容：　　

　　Fori=1Tonum_copies

　　注釋：Printthedocumenthere...　　

　　Printer.NewPage

　　Nexti

　　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)

　　看看偏離了多少。試一試多打印幾次，如果發現打印機有一定規律的偏離，你就可以按照一定的差額進行增減來達到最佳的效果。

　　提供打印預覽

　　建立打印程序時，先設置一個要繪制的對象做為參數，然后傳遞給程序一個打印的對象。

　　為了實現預覽效果，傳遞給程序一個隱藏PictureBox。然后，根據需要的比例，使用PaintPicture拷貝這個隱藏圖形到一個可見的PictureBox。在隱藏PictureBox上按照全尺寸繪制圖形，首先允許你按比例決定了字體，并且，也實現了不失真地完成其他圖形的描述。->

上一篇：VB編程：WindwosAPI全攻略

下一篇：WindowsAPI的作用及使用技巧