以下是用陣列的方法將資料送往Word列印...
那如果是使用資料庫來把資料丟給Word...
有人會嗎..
好像有點難...
(一般)
Dim MyDocApp As Word.Application
'設MyDocApp為Word的Application型態的變數
Private Sub Command1_Click()
Dim MyDat(100) As Variant
Dim MyTmpDat As Variant
'底下是先把資料寫入陣列
MyDat(0) = Array("座號", "姓名", "工數", "動力學", "靜力學", "流力", "材力", "熱力")
MyDat(1) = Array("1", "林羽", "72", "63", "80", "73", "81", "74")
MyDat(2) = Array("2", "曾小亭", "82", "86", "76", "93", "89", "82")
MyDat(3) = Array("3", "夏添", "58", "64", "61", "60", "23", "60")
MyDat(4) = Array("4", "筱刮刮", "62", "73", "97", "92", "46", "96")
MyDat(5) = Array("5", "胡秀華", "75", "36", "64", "82", "74", "67")
Set MyDocApp = CreateObject("Word.Application")
'指定一個真正的Word Application給MyDocApp變數
MyDocApp.Documents.Add
'開啟新文件
MyDocApp.Visible = True
'讓這個Word視窗被顯示出來
MyDocApp.Selection.Tables.Add MyDocApp.Selection.Range, 1, 1
'在文件裡插入一個 1 x 1的表格
MyDocApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'把這個裡插入的表格設為向中對齊
With MyDocApp.Selection.Font
'設定字型成你所需要的樣式
.Name = "標楷體"
.Bold = True
.ColorIndex = wdDarkBlue
.Size = 24
End With
MyDocApp.Selection.Text = "VB在Word產生報表範例"
'把字插入到游標所在的地方(目前在1 x 1的表格裡)
MyDocApp.Selection.MoveDown
'把游標移到表格下方空白文件處
MyDocApp.Selection.Tables.Add MyDocApp.Selection.Range, 8, 8
'一口氣插入8 x 8的表格
For I = 0 To 5
'資料有六筆，在MyDat陣列是 (0) ~ (5)
For C = 0 To 6
'而每一筆資料有8欄，先處理 1~7欄
MyTmpDat = MyDat(I)
'把每一筆MyDat的每一欄給拆解到MyTmpDat
MyDocApp.Selection.Text = MyTmpDat(C)
'把資料填到表格裡
MyDocApp.Selection.MoveRight , 2
'移到左邊的儲存格
Next
MyDocApp.Selection.Text = MyTmpDat(7)
'把資料寫到最後一欄
MyDocApp.Selection.MoveRight , 3
'把文字游標移到下一列的第一欄
Next
MyDocApp.ActiveDocument.PrintPreview
'啟動預覽列印
MyDocApp.DisplayAlerts = wdAlertsNone
'這個敘述在Word裡沒什麼作用
MyDocApp.Quit
'關閉Word
Set MyDocApp = Nothing
End Sub
＜出自vb調理站..＞