Question

在VB中如何实现将数据库中的数据打印出来

如题。

Answer 1

数据库中的数据打印出来吗？

给你一个思路，首先，你要做的是读取数据库记录，并把它们保存起来。当然，可以是保存在控件上，也可以保存在变量里。呵呵，当然也可以读一条记录，打印一次。不过这可能有点那样……。

读取出来以后，你还需要进行数据的排版，比如你需要打印成什么样式，纸张类型等。

做好了这些，你就可以通过几种方式来打印数据了。

当然，用控件打印是很简单的，因为很多控件都支持print方法。比如窗体的print方法。

思考是学习的唯一途径。

Answer 2

楼上的2位,不好意思,楼主要的是VB.net的方法,他的第一个问题搞了好久才知道~~~
添加PrintDialog和PrintDocument控件
代码:
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
PrintDialog1.Document = PrintDocument1
If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim rCount As Integer = DataGridView1.Rows.Count - 1
Dim rColumn As Integer = DataGridView1.Columns.Count - 1
Dim i As Integer, j As Integer
Dim pFont As Font = DataGridView1.Font
Dim tmpStr As String = ""
For i = 0 To rCount - 1
tmpStr = ""
For j = 0 To rColumn
tmpStr &= DataGridView1.Rows(i).Cells(j).ToString() & " "
Next
e.Graphics.DrawString(tmpStr, pFont, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + (i + 1) * pFont.GetHeight(e.Graphics), New StringFormat())
Next
End Sub

Answer 3

PRINTER.PRINT 用这个，直接打印到默认打印机了，位置的确定是你根据控件的位置就可以确定了