資料庫列印報表

❶ vb如何列印Access資料庫報表

首先在ACCESS中使用向導建立報表,命名為"表報一"
然後在vb中調用列印

Dim objACC As Object
Set objACC = CreateObject("ACCESS.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表報一"
objACC.Quit
Set objACC = Nothing

❷ 如何列印資料庫表

在數據表中點下按鈕，自動填入數據，可以在代碼里加入每張表格的標題和方框，這樣下次使用只需要輸入數據，就可以自動生成了。
Sub text()
Dim k As Integer
k = 0
For i = 3 To Range("A65536").End(xlUp).Row
If i Mod 2 = 1 Then
Sheets("列印").Cells(3 + k, 2) = Cells(i, 1)
Sheets("列印").Cells(5 + k, 3) = Cells(i, 2)
Sheets("列印").Cells(8 + k, 4) = Cells(i, 4)

Else
Sheets("列印").Cells(3 + k, 7) = Cells(i, 1)
Sheets("列印").Cells(5 + k, 8) = Cells(i, 2)
Sheets("列印").Cells(8 + k, 9) = Cells(i, 4)
k = k + 11
End If
Next
End Sub

輸出到列印機的代碼是：
printer.print "數據"

❸ 如何用EXCEL做資料庫，能實現添加刪除，查詢庫存，列印報表等功能，請高手指教，謝謝！

EXCEL做小型資料庫可以的，但要限定數據數據訪問和修改
1- 增加一個表，作為數據查詢、輸入和刪除的界面；（函數，刪除需要VBA宏）
2- 查詢表可以按照列印格式製作，並結合庫存數據；（庫存需要函數或VBA宏計算）
3- 數據存放頁要限制訪問，最好直接隱藏掉；（限制通常只能用VBA宏實現）
4- 如查詢方式和列印樣式多樣那就多做些表吧。
備注，這個可以用函數設計（2007版本及以上才行），或者用VBA宏設計（無版本限制）

❹ 怎麼在access資料庫報表中列印出表格資料庫

Access的報表功能其實是很牛的.
依託強大的查詢功能,可以形成各種報表,
你可以很隨意的調整報表頁面,內容,
進行頁面設置,進行列印預覽,
都設置好的後,按一下列印機圖標就列印了,
完全與Word,Excel類似

❺ ACCESS資料庫中如何調取一條記錄形成報表並列印

很簡單,過程如下:
新建一個報表,記錄源設為你要取記錄的表,或查詢的名字；在報表裡添加適當的控制項以滿足你的列印效果的要求；把控制項的控制項來源屬性設為報表記錄源中的欄位名字.這樣,報表就和你要取數據的表連接在一起了.
如果想在打開報表時提示輸入記錄號來列印報表,就用報表打開的事件過程,在裡面寫好列印報表的代碼；
還可以在窗體中,放置一個命令按鈕,在單擊的事件過程中寫入列印報表的代碼.

❻ 用vb實現 資料庫報表列印 datagrid+adodc +access

前提：載入adodc控制項，datagrid控制項

1、在窗口創建adodc控制項，datagrid控制項
2、adodc的屬性里，設置
a)連接資料庫,可使用字元串方式(microsoft jet 3.51 ole db)，access文件
b)記錄源，cmdtext，滿足條件的sql語句。
3、設置datagrid的屬性：
c）datasourse設置為adodc1
4、列印可以考慮execl
菜單-》工程-》引用-》excel打鉤
參考列印代碼
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlApp As Excel.Application
Dim strSource, strDestination As String
Dim i As Integer
Dim j As Integer
cmdPrint.Enabled = False
Screen.MousePointer = vbHourglass
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = False

strSource = App.Path & "\newtable.xls"
strDestination = App.Path & "\Temp.xls"
On Error GoTo COPYERR
FileCopy strSource, strDestination
On Error GoTo 0
Set xlBook = xlApp.Workbooks.Open(strDestination)
If bTest Then
Set xlSheet = xlBook.Worksheets(5)
Else
Set xlSheet = xlBook.Worksheets(3)
End If
If msgData.Rows > 3 Then
xlSheet.Cells(1, 1) = lblTitle
xlSheet.Cells(2, 1) = lbl1(0)
For i = 2 To Datagrid.Rows - 1
For j = 0 To Datagrid.Cols - 1
xlSheet.Cells(i + 3, j + 1) = Datagrid.TextMatrix(i, j)
Next j
Next i
xlBook.Save
If bPrint Then xlSheet.PrintOut
End If
xlApp.Quit
Screen.MousePointer = vbArrow
cmdPrint.Enabled = True
Exit Sub
COPYERR:
MsgBox Err.Description
Screen.MousePointer = vbArrow
cmdPrint.Enabled = True

❼ vb怎樣將從資料庫中查詢出的結果用報表列印出來

為了你有個好的編程習慣，最好在代碼前面都加上
Option Explicit
先定義後使用

問題應該在DataReprot1 這個部分，如果我沒記錯的話
datareport 應該是vb6中自帶的crystal report 工具
這個工具的報表生成是需要自行設計的，可能是你的設計有誤。