1

该程序拒绝打印合法尺寸。我花了令人尴尬的时间来研究这个问题，但没有运气。帮助将不胜感激。打印机支持 Legal 打印。“Imports System.Drawing.Printing”语句就在那里。如果我取消注释 PrintPreviewDialog 块，它将以 Legal 大小预览，但以 Normal 大小打印。

编辑：程序进一步简化。如果有人可以运行此代码以确定它是程序问题还是其他问题，我将不胜感激。两台不同的计算机、两台打印机上的问题，它们都用于每天在 Excel 中进行法定尺寸打印。

Imports System.Drawing.Printing

公开课形式1

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

    PrintDocument1.DefaultPageSettings.PaperSize = PrintDocument1.PrinterSettings.PaperSizes(2)  '2 has been verified correct, confirmed below


    'PrintDocument1.Print()
    PrintPreviewDialog1.Document = PrintDocument1
    PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub PrintDocument2(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    MsgBox(PrintDocument1.DefaultPageSettings.PaperSize.ToString)  ' this verifies the papersize code is correct at run time

    Dim drawFont As New Font("Helvetica", 10)
    Dim rc1 As RectangleF = New RectangleF(250, 650, 400, 50)
    e.Graphics.DrawString("Hello World", drawFont, Brushes.Black, rc1)

End Sub

结束类

4

0 回答 0