我正在使用PrintForm将当前表单的快照打印到点阵打印机。它打印得很好,但是打印机在打印后会滚动整个纸卷。它应该在打印结束时停止。
打印表格的代码:
PrintForm1.Print()
打印完成后如何让打印机停止进纸?
使用 PrintForm 的 PrinterSettings 属性,我们可以将纸张大小更改为我们想要的方式。一旦达到上述高度,打印机将停止进纸。
Dim customSize As New PaperSize("Custom", 500, Me.Height)
PrintForm1.PrinterSettings.DefaultPageSettings.PaperSize = customSize
PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Top = 0
PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Right = 0
PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Bottom = 50
PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Left = 0
PrintForm1.Print()