vb打印newpage问题

你这个代码会打印两页

但不会连续不停打印

如果那有可能和你的打印机设置有关.

去掉Printer.Orientation 试试

建议将代码放在Private Sub Form_Activate()中 而不是load()中

VB6.0中换页：

Printer 对象，用 NewPage 和 EndDoc 方法打印 Printer 对象的内容。

一旦将文本和图形放到 Printer 对象中，就可用 EndDoc 方法打印该内容。EndDoc 方法要换页，并将悬置的所有输出都送给假脱机系统。

创建多页文档

打印较长的文档时，可用 NewPage 方法，在代码中指定新的一页。例如：

Printer.Print "This is page 1."

Printer.NewPage

Printer.Print "This is page 2."

Printer.EndDoc

在字符串中使用换页符(Chr$(12))。

---