如何在使用PrintForm打印时停止进纸

Question

我正在使用PrintForm将当前表单的快照打印到Dot Matrix Printer。它打印得很好，不过打印后打印机滚动整个纸卷。它应该在打印结束时停止。

打印表单的代码：

PrintForm1.Print()

如何告诉打印机在打印完成后停止进纸？

Answer 1

使用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()