----Grid控制項是VisualBasic最常見控制項之一，從VB3.0到VB5.0都有該控制項。也是VB愛好者最愛的工具之一。用它可以以表格的形式顯示、瀏覽數據，特別是資料庫應用，直接綁定即可顯示瀏覽資料庫資訊。然而，美中不足的是Grid沒有編輯與列印功能，列與列的位置不能互相交換。作者曾嘗試為Grid增添了這些功能，使其錦上添花，功能更強大。下面給出改進方法及原始程序，讀者只需按步驟寫下原始程式即可使你的Grid具有列印功能。該程式筆者在HP5/100Window95環境下用VB5.0調試通過。
----為Grid控制項增加列印方法有三種：1是直接列印控制項的方法，2是過PRinter來實現列印功能，3是透過呼叫MS-Word及MS-Excel來實現列印。
----首先，開啟一個應用，在FORM1中增加DATA控制DATA1,把DATA1的CONNECT屬性設為dBASEIII，再把DATABASENAME屬性設為D:/PJXM.DBF。然後再在FORM1中增加MSFLEXGRID空間GRID1，並把GRID1的DATASOURCE屬性設為DATA1。這樣資料庫PJXM.DBF的資訊就會在GRID1中顯示出來。
----方法一：直接列印窗體法，在FORM1中增加指令按鈕(command)，CAPTION屬性設為直接列印，再寫入下列編碼：
Subcommand_click
Form1.printform
Endsub
----這樣即可透過列印視窗FORM1的方法把GRID1的資料列印出來，遺憾的是只能列印GRID1中顯示的資料部分，顯示不出來的則無法列印，而且這種列印方法很像螢幕硬拷貝把其他控制也印出來。也不能靈活的控製字體等。
----方法二：透過PRINTER實現列印。這種方法
----1、加入列印指令按鈕(command1)、函數(prnt1)即可實現列印功能，寫入下面程式碼，讀者稍加改動可寫成標準的函數或流程。
Functionprnt1(xAsInteger,yAsInteger,
fontAsSingle,txtAsString)
printer.CurrentX=x
printer.CurrentY=y
printer.FontBold=False
printer.FontSize=font
printer.Printtxt
EndFunction
Subcommand1_click
DimfntAsSingle
Dimppasinteger
Pp=0'設定開始頁碼0
Dimstry,strx,strx1,stry1,linw,page1,pAsInteger
Statica(8)AsInteger'定義列印的列數
ss$="內部結算存入款對帳單"'定義表頭
kan=0
Fori=0To8
a(i)=1500'定義每列寬
kan=kan a(i)'計算表格總寬度
Next
page1=50'定義每頁行數
strx=200
strx1=200'定義X方向起始位置
stry=1400
stry1=1400'定義Y方向起始位置
linw=240'定義行寬
fnt=8'定義字型
printer.fontname="宋體"'定義字體
dd=prnt1(4000,700,18,ss$)'列印標題
printer.Line(strx-50,stry-30)
-(strx kan-10,stry-30)
Forj=0Togridrow-1'gridrow為所要列印的行數
grid1.row=j
strx=strx1
printer.Line(strx-50,stry-30)
-(strx kan-10,stry-30)
p=p 1
Fori=0To8
grid1.col=i
dd=prnt1(strx,stry,fnt,grid1.text)
strx=strx a(i)
Next
Ifp>page1Then'nextpage
p=0
strx=strx1
'linelastline
printer.Line(strx-50,stry linw)
-(strx kan-10,stry linw)
stry=stry1
'linecol
Forn=0To8
printer.Line(strx-30,stry-30)
-(strx-30,stry (page1 2)*linw)
strx=strx a(n)
Next
printer.Line(strx-30,stry-30)
-(strx-30,stry (page1 2)*linw)
pp=pp 1
foot$="第" cstr(pp) "頁"
dd=prnt1(strx-30-1000,stry (page1 2)
*linw 100,10,foot$)'列印頁角碼
printer.NewPage'nextpage
dd=prnt1(4000,700,18,ss$)'列印標題
strx=strx1
stry=stry1
printer.Line(strx-50,stry-30)-
(strx kan-10,stry-30)'printfirstrow
Else
stry=stry linw
EndIf
Next
st=stry
Ifp<page1Then'在最後頁剩餘劃空行
Foro=pTopage1 1
strx=strx1
printer.Line(strx-50,stry-30)
-(strx kan-10,stry-30)
stry=stry linw
Next
EndIf
stry=stry1
strx=strx1
stry=stry1'linecol
Forn=0To8
printer.Line(strx-30,stry-30)-
(strx-30,stry (page1 2)*linw)
strx=strx a(n)
Next
printer.Line(strx-30,stry-30)-
(strx-30,stry (page1 2)*linw)
pp=pp 1
foot$="第" cstr(pp) "頁"
dd=prnt1(strx-30-1000,stry (page1 2)
*linw 100,10,foot$)'列印頁角碼
printer.EndDoc'列印結束
Endsub
----這種方法透過靈活的編程可以方便地調整字體、字體、線形、頁面、紙張大小等。可列印出比較滿意的效果。如果你的電腦上裝有MICROSOFTWORD和MICROEXCEL，最精彩的用法還是把GRID的表格透過VB寄到MICROSOFTWORD及MICROEXCEL。產生MICROSOFTWORD和MICROEXCEL表格。這樣就可以充分利用MICROSOFTWORD和MICROEXCEL的列印、編輯功能列印出更理想的效果。以下逐一介紹。
----方法三：透過產生MICROSOFTWORD表格列印
----1、在declaration中寫入:
DimmswordAsObject
----2、加入列印指令按鈕(command2)，CAPTION設為"產生WORD表
格"，寫入下面程式碼，
PrivateSubcommand2_Click()
screen.MousePointer=11
Setmsword=CreateObject("word.basic")
DimAppID,ReturnValue
appID=Shell("d:/office97/office/WINWORD.EXE",1)
'RunMicrosoftWord.
msword.AppActivate"MicrosoftWord"
'msword.AppActivate"MicrosoftWord",1
full
Screen.MousePointer=0
EndSub
----2、寫入下列過程full()
Subfull()
DimiAsInteger,jAsInteger,
colAsInteger,rowAsInteger
DimcellcontentAsString
Me.Hide
cols=4'表格的列數
row=gridrow'列印表格的行數
msword.filenewdefault
msword.MsgBox"正在建立MS_WORD報表，
請稍候.......","",-1
msword.leftpara
msword.screenupdating0
msword.tableinserttable,col,row,,,16,167
msword.startofdocument
forj=0togridrow'表格的行數
grid1.row=j
Fori=1Tocols
Gri1d.col=i
IfIsNull(grid1.text)Then
cellcontent$=""
Else
cellcontent$=grid1.text
EndIf
msword.Insertcellcontent$
msword.nextcell
Nexti
Nextj
msword.tabledeleterow
msword.startofdocument
msword.tableselectrow
msword.tableheadings1
msword.centerpara
'msword.startdocument
msword.screenrefresh
msword.screenupdating1
msword.MsgBox"結束","",-1
Me.Show
EndSub
----方法四：透過傳送到MICROSOFTEXCEL實現表格列印
----1、加入列印指令按鈕(command3)，CAPTION設為"產生EXCEL表
格"，寫入下面程式碼
PrivateSubcommand3_Click()
DimiAsInteger
DimjAsInteger
DimxlAppAsExcel.application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet
SetxlApp=CreateObject("Excel.Application")
xlApp.Visible=True
'SetxlBook=xlApp.Workbooks.Add
'OnErrorResumeNext
SetxlBook=xlApp.Workbooks.Add'Open("d:/text2.xls")
SetxlSheet=xlBook.Worksheets(1)
xlSheet.Cells(6,1)="i"
Fori=0Togridrow
grid1.Row=i
Forj=0To6
Grid1.Col=j
IfIsNull(Grid1.Text)=FalseThen
xlSheet.Cells(i 5,j 1)=Grid1.Text
EndIf
Nextj
Nexti
ExitSub->