Vb.net 打印预览仅打印当前页面

我真的不知道在VB.net中打印时我在做什么，但我有一个打印子组件，可以显示打印预览

打印预览有4页，但当我单击“打印”按钮时，它只打印最后一页

在表单上，我有

PrintDialog1

PrintDocument1

和

PrintPreview1

我的按钮有命令

 me.printpreviewdialog1.showdialog()

My

PrintDocument1\u PrintPage

包含用于打印的代码

我还通过计数器使用

e.HasMorePages=True

和

False

来控制页面

---

有什么想法吗？

你能再展示一些代码吗？请特别说明确定

HasMorePage

属性值的逻辑我已经设法修复了它。答案是在e.HasMorePages=False之后重置我的页面计数变量。我不知道为什么它会工作，因为它是我自己定义的变量，而不是系统变量。