关于 PrintDocument 打印的问题

2020-03-24 07:19:57 213 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于Java的高校校园点餐系统本文介绍了一个基于Java技术开发的高校校园点餐系统，该系统以B/S结构为基础，采用MySQL作为数据库，实现了一个高效、便捷的在线点餐平台。系统主要面向三类用户：管理员、用户和食堂工作人员，提供包括用户管理、食堂管理、菜单管理、订单管理等在内的多项功能。通过系统的具体测试，验证了其可行性和有效性，为高校师生提供了一个科学化、系统化的点餐服务。高校校园点餐系统的开发和实现，不仅提高了校园餐饮服务的效率和质量，也为师生提供了一个更加便捷的点餐体验。阅读详情

大家好，下面这段程度运行到 pd.Print() 报错，请帮看下

Imports System.IO
Imports System.Drawing.Printing
Imports System.Text
Imports System.Drawing
Public Class Form2

Private sr As StringReader
'Private sr As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sb As New StringBuilder()

sb.Append(" 停车场管理系统 \n")

sb.Append("*************************************\n")

Print(sb.toString())
End Sub
Public Function Print(ByVal str As String) As Boolean
Dim result As Boolean = True
' sr = TextBox1.Text

sr = New StringReader(str.ToString())
Dim pd As PrintDocument = New PrintDocument()
Dim pageSize As New PaperSize("First custom size", 600, 600)
pd.PrintController = New System.Drawing.Printing.StandardPrintController()
pd.DefaultPageSettings.Margins.Top = 2
pd.DefaultPageSettings.Margins.Left = 0
pd.DefaultPageSettings.PaperSize.Width = 320
pd.DefaultPageSettings.PaperSize.Height = 5150
pd.PrinterSettings.PrinterName = pd.DefaultPageSettings.PrinterSettings.PrinterName

pd.OriginAtMargins = True
Dim MARGIN As Margins = New Margins(1, 1, 1, 1)
pd.DefaultPageSettings.Margins = MARGIN

AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage

Try
pd.Print()
Catch ex As Exception
result = False
Finally
If sr IsNot Nothing Then sr.Close()
End Try

Return result
End Function

Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim printFont As Font = New Font("Arial", 9)
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim line As String = ""
linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
'line = sr.ReadLine()) != null)
MsgBox(linesPerPage)

While count < linesPerPage And ((line = sr.ReadLine()) <> "")

yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))
ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, yPos, New StringFormat())

count += 1
End While

If line IsNot Nothing Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
End Sub

End Class
--------------------------------------------------------------------------
运行到 pd.Print() 报错：“System.ComponentModel.Win32Exception”类型的未经处理的异常在 System.Drawing.dll 中发生

...全文