VB中實(shí)現(xiàn)“所見即所得”功能

      Windows程序大多數(shù)具有“所見即所得”(WYSIWYG，What You See Is What You Get)的功能�！八�見即所得”是指軟件打印輸出效果和屏幕顯示效果完全一致。“所見即所得”是Windows程序的一個(gè)主要優(yōu)點(diǎn)之一。

�牐牨疚膶⒔榻B如何使用Visual BASIC(以下簡(jiǎn)稱VB)編寫具有“所見即所得”功能的Windows程序。

      一、方法概述

�牐牉榱嗽谄聊簧夏�擬打印效果，我們使用VB的一個(gè)窗體來模擬一張打印紙。在VB中，每一個(gè)窗體都有一個(gè)PrintForm方法。使用PrintForm方法可以把一個(gè)窗體的內(nèi)容完全一樣地通過打印機(jī)打印出來。由于PrintForm方法在打印窗體內(nèi)容的時(shí)候，對(duì)于窗體內(nèi)的文字和圖形都是同樣地打印。所以通過簡(jiǎn)單的編程，使用PrintForm方法可以非常方便地實(shí)現(xiàn)圖文混合打印。

�牐牏俅_定用戶可以使用的顯示與打印雙功能字模

�牐牎八�見即所得”程序中用戶可以使用的字模必須是同時(shí)支持Windows的顯示設(shè)備和打印設(shè)備的雙功能字模。只有這些字模才可以在屏幕和打印機(jī)上產(chǎn)生一樣的效果。因此，程序必須首先獲得這些顯示與打印雙功能字模的名稱。

�牐牏谠谄聊簧显O(shè)置“紙張”窗體的大小

�牐犕ㄟ^讀取Windows打印管理器紙張尺寸的設(shè)置，在VB里建立一個(gè)與打印紙具有同樣尺寸比例關(guān)系的窗體，作為屏幕上模擬打印效果的“紙張”，讓用戶在屏幕上就可以看到文字和圖形在打印紙上的位置分布。

�牐牏塾脩粼谄聊弧凹垙垺鄙夏�擬打印效果

�牐犜谀�擬打印的窗體中通過使用Print、Line、Circle等方法繪制文字和圖形的，還可以使用圖形框、Graph．VBX、OLE等控件繪制圖形、統(tǒng)計(jì)圖表、公式、藝術(shù)字型等。

�牐牏軐⑵聊弧凹垙垺钡膬�(nèi)容輸出到打印機(jī)

�牐犑褂么绑w的PrintForm方法把第③步所繪制的文字和圖形輸出到打印機(jī)，得到和屏幕顯示一模一樣的打印拷貝，實(shí)現(xiàn)“所見即所得”。

      二、打印機(jī)字模和顯示器字模的精確匹配

�牐燱indows的字模分為兩類：打印機(jī)字模和顯示器字模。各種TrueType字模(如宋體、黑體字模)都是顯示與打印雙功能字模。其他的非TrueType字模就只能用于顯示或打印。

�牐犎绻�在模擬打印窗體的文字輸出中使用了只能用于顯示的字模，那么當(dāng)PrintForm方法執(zhí)行的時(shí)候，Windows就只能在打印字模中查找一個(gè)盡量和這個(gè)顯示字模字型匹配的字模來進(jìn)行打印。這樣將導(dǎo)致得到的打印拷貝與屏幕顯示不一致。

�牐牉榱耸钩绦颢@得“所見即所得”的能力，必須在窗體輸出中使用顯示與打印雙功能字模。因此，程序獲得“所見即所得”能力的一個(gè)關(guān)鍵是：確保在屏幕輸出中只使用顯示與打印雙功能字模。

�牐犜赩B中提供了兩個(gè)全局對(duì)象：屏幕對(duì)象Screen和打印機(jī)對(duì)象Printer。兩個(gè)對(duì)象都提供了FontCount屬性和Fonts屬性。FontCount屬性提供了可使用字模的數(shù)量，而Fonts屬性提供了可使用字模的名稱。在程序中，我們可以取出Screen對(duì)象和Printer對(duì)象所共同擁有的字模，這些字模就是所有的顯示與打印雙功能字模。

�牐牼唧w的程序如下：

�牐犑紫仍O(shè)置一個(gè)列表框，取名List1，然后調(diào)用下面的GetFont函數(shù)，在List1中就存放所有顯示與打印雙功能字模的名稱。

Sub GetFont()
 For i＝0 To Screen．FontCount－1
   For j＝0 To Printer．FontCount－1
      If Screen．Fonts(i)＝Printer．Fonts(j) Then
         List1．Add1tem (Sereen．Fonts(i))
      End If
   Next j
 Next i
End Sub 

      三、窗體大小和紙張尺寸的匹配

�牐牉榱嗽谄聊簧峡梢郧宄�地看到文字和圖形在打印紙上的位置和大小關(guān)系，必須使VB顯示窗口的大小比例和打印紙張的大小比例是一致的。打印紙張的大小可以使用Printer對(duì)象的Width和Height屬性來獲得。根據(jù)獲得的屬性值可以設(shè)置VB顯示窗體的大小比例，使之合乎紙張的比例大小。

�牐犗旅娴某绦蛑杏幸粋�(gè)變量Size，其取值的范圍為0－1。它的作用是控制打印圖形的大小。當(dāng)Size的值為1的時(shí)候，打印圖形將和Windows設(shè)定的紙張一樣大小。具體程序如下：

Sub Form_Load ()
   Dim SizeAS INTECER
   Size＝0.95
   Form1.Height＝Printer．Height*Size
   Form1.Wdth＝Printer．Width*Size
End Sub 

      四、模擬打印和打印輸出

�牐犗旅娴囊欢纬绦蜓菔玖嗽陲@示窗體上模擬打印文字和圖形的方法，以及使用PrintForm把顯示窗體中的文字和圖形輸出到打印機(jī)的方法。

�牐犠⒁獾氖牵簽榱耸褂肞rintForm方法，必須把顯示窗體的AutoRedraw屬性設(shè)置為True。

�牐犛捎赑rintForm方法打印窗體的內(nèi)容是使用bit－by－bit的拷貝方法，因此在窗體里的所有文字和圖形都可以被原樣打印出來。作為例子，我們可以使用OLE控件來顯示W(wǎng)ord公式編輯器里編輯的公式，使用Picture和Graph控件來顯示圖形和統(tǒng)計(jì)圖。然后使用PrintForm方法將它們打印出來。

�牐牼唧w程序如下：

Sub PrintOnScreen ()
Form1．Scale(0，0)－(100，100) ' 設(shè)置坐標(biāo)
Form1．Line(100，0)－(0，100) ' 顯示畫線
Form1．CurrentX＝0
Form1．CurrentY＝0
Form1．FontName＝"宋體" ' 輸出文字
Form1．FontSize＝20
Form1．Print "模擬打印"
Picture1．Picture＝LoadPicture("setup.bmp") '輸出圖形
Form1．PrintForm ' 將顯示窗體的內(nèi)容送到打印機(jī)
Printer．EndDoc ???' 開始打印
End Sub