【正文】 ender As , ByVal e As ) Handles = True = 讀者信息添加對話框 () Dim sqlm As New SqlCommand = sqlconn = select * from DuZheXinXi form_data(sqlm) End Sub Private Sub FormDuZheGuanLi_Shown(ByVal sender As Object, ByVal e As ) Handles Dim sqlm As New SqlCommand = select * from DuZheXinXi = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm form_data(sqlm) = select 職業(yè) from DuZheXinXi group by 職業(yè) = sqlconn = sqlm (sqlds, zhiye) () Dim i As Integer For i = 1 To (zhiye). ((zhiye).Rows(i 1)(0), (zhiye).Rows(i 1)(0)) = select 姓名 from DuZheXinXi where 職業(yè) =39。 %39。% amp。 amp。 39。 amp。 amp。i列下標(biāo)的變化范圍 , j行下標(biāo)的變化范圍 Do While j = 1 PrintLeft = Cellheight = (j).Height For i = 0 To 1 CellWidth = (i).Width ((j).Cells(i).Value, , , PrintLeft, PrintTop) (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (i).Width Next PrintHeight = PrintHeight + (j).Height PrintTop = PrintTop + (j).Height j = j + 1 If PrintHeight = Then Exit Do End If Loop If j = 1 Then = True Else = False j = 0 End If Else If Then w = h = y = h / 2 / 2 x = w / 2 ( * ) / 2 (, , , x, y) End If If Then w = h = y = h / 2 / 2 + x = w / 2 ( * ) / 2 (, , , x, y) End If PrintTop = PrintLeft = For k = 0 To 1 ((k).HeaderText, , , PrintLeft, PrintTop) CellWidth = (k).Width Cellheight = (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。 Static j As Integer 39。 Dim k As Integer For k = 0 To 1 ((k).HeaderText, , , PrintLeft, PrintTop) CellWidth = (k).Width Cellheight = (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。 Dim PrintLeft, PrintTop As Integer PrintTop = PrintLeft = 39。 Dim w, h, x, y As Integer If Then w = h = y = h / 2 / 2 x = w / 2 ( * ) / 2 (, , , x, y) End If If Then w = h = y = h / 2 / 2 + x = w / 2 ( * ) / 2 (, , , x, y) End If 39。 \picture\) End Sub Private Sub ButtonTuiChu_Click(ByVal sender As , ByVal e As ) Handles End End Sub End Class 版本說明窗體代碼 : Public Class FormBanBenShuoMing Private Sub LinkLabel1_LinkClicked(ByVal sender As , ByVal e As ) Handles ( End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 打印窗體代碼 : Public Class FormTuShuDaYin Public biaozi As Boolean Private Sub ButtonYeMianSheZhi_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 () End Sub Private Sub ButtonYuLan_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 () End Sub Private Sub ButtonDaYin_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 = True = True = True If = Then () End If End Sub Private Sub ButtonYeMeiJiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As , ByVal e As ) Handles Dim w, h, x, y As Integer Dim PrintHeight As Integer Dim PrintLeft, PrintTop As Integer Dim CellWidth, Cellheight As Integer Dim k As Integer Dim i As Integer Static j As Integer If biaozi = True Then If Then w = h = y = h / 2 / 2 x = w / 2 ( * ) / 2 (, , , x, y) End If If Then w = h = y = h / 2 / 2 + x = w / 2 ( * ) / 2 (, , , x, y) End If PrintTop = PrintLeft = For k = 0 To 1 ((k).HeaderText, , , PrintLeft, PrintTop) CellWidth = (k).Width Cellheight = (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。 admin,密碼 admin = New Bitmap( amp。 vbCrLf amp。 vbCr