数据库打印报表

❶ 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 工具
这个工具的报表生成是需要自行设计的，可能是你的设计有误。