如何使用PrintDocument类打印WEB页面?
现在我在WEB中有一个DataGrid1,显示一个表的数据,
现在我用PrintDocument进行打印,可是为什么打印出来是一片空白?
Imports System.Drawing.Printing
Imports System.Data
Imports System.Data.SqlClient
Public Class print
Protected pd As PrintDocument
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As New SqlConnection("server=ZMZ;database=pubs;user id=sa;password=;")
Dim comm As New SqlCommand("SELECT * FROM authors", conn)
conn.Open()
DataGrid1.DataBind()
Dim dr As SqlDataReader = comm.ExecuteReader()
DataGrid1.DataSource = dr
DataGrid1.DataBind()
conn.Close()
pd = New PrintDocument()
' 枚举系统已安装的打印机
If Not Page.IsPostBack Then
Dim pkInstalledPrinters As String
For Each pkInstalledPrinters In PrinterSettings.InstalledPrinters
PrinterList.Items.Add(pkInstalledPrinters)
Next
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pd.Print()
End Sub
Private Sub PrinterList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrinterList.SelectedIndexChanged
If PrinterList.SelectedIndex <> -1 Then
' The combo box's Text property returns the selected item's text, which is the printer name.
pd.PrinterSettings.PrinterName = PrinterList.Items(PrinterList.SelectedIndex).Text
End If
End Sub
请高手指点!!!