VBA打印范围从不同的纸张开始，只提示用户一次

我在两张不同的纸上有两个范围（固定），我想在不同页面的单个文件中打印，只通过打印对话框提示用户一次

到目前为止，我正在这样做：

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$47"
ActiveWindow.SelectedSheets.PrintOut
Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$94"
ActiveWindow.SelectedSheets.PrintOut

---

但它甚至不会提示用户一次。

您唯一的选择是将单元格复制到新的工作表中，设置分页符，然后使用

.PrintPreview

方法显示打印预览，用户可以在其中更改设置，并在选择时调用打印对话框。

您唯一的选择是将单元格复制到新的工作表中，设置分页符，然后使用

.PrintPreview

方法显示打印预览，用户可以在其中更改设置，并根据需要调用打印对话框。

您唯一的选择是将单元格复制到新的工作表中，设置分页符，然后使用

.PrintPreview

方法显示打印预览，用户可以在其中更改设置，并根据需要调用打印对话框。

您唯一的选择是将单元格复制到新的工作表中，设置分页符，然后使用

.PrintPreview

方法显示打印预览，用户可以在其中更改设置并调用打印对话框（如果用户选择）。

您可以一次选择多张图纸，然后调用

PrintOut

命令

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$47"

Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$94"

Sheets(Array("Sheet1", "Sheet2")).Select

ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sheet1").Select 'Needed so that multiple sheets don't remain selected

---

您可以一次选择多张图纸，然后调用

PrintOut

命令

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$47"

Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$94"

Sheets(Array("Sheet1", "Sheet2")).Select

ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sheet1").Select 'Needed so that multiple sheets don't remain selected

---

您可以一次选择多张图纸，然后调用

PrintOut

命令

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$47"

Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$94"

Sheets(Array("Sheet1", "Sheet2")).Select

ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sheet1").Select 'Needed so that multiple sheets don't remain selected

---

您可以一次选择多张图纸，然后调用

PrintOut

命令

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$47"

Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$94"

Sheets(Array("Sheet1", "Sheet2")).Select

ActiveWindow.SelectedSheets.PrintPreview
Sheets("Sheet1").Select 'Needed so that multiple sheets don't remain selected

---

没有办法选择多个范围并使用单个作业打印它们。没有。没有

范围（…）。打印
选项。没有方法选择多个范围并使用单个作业打印它们。否。没有
范围（…）。打印
选项。没有方法选择多个范围并使用单个作业打印它们。否。没有
范围（…）。打印
选项。没有方法选择多个范围并使用单个作业打印它们。否。没有
范围（…）。打印
选项。好的，这似乎很好，但我仍然没有得到一个对话框，如何快速选择打印机？啊，编辑为
。打印预览
，而不是
。打印输出
，应该允许选择打印机。谢谢，这很有帮助！：）好的，这似乎很好，但我仍然没有得到一个对话框，我如何在运行中选择打印机？啊，编辑为
.PrintPreview
，而不是
。打印输出应该允许选择打印机。谢谢，这很有帮助！：）好的，这似乎很好，但我仍然没有得到一个对话框，我如何在运行中选择打印机？啊，编辑为
.PrintPreview
，而不是
。打印输出应该允许选择打印机。谢谢，这很有帮助！：）好的，这似乎很好，但我仍然没有得到一个对话框，我如何在运行中选择打印机？啊，编辑为
.PrintPreview
，而不是
。打印输出应该允许选择打印机。谢谢，这很有帮助！：）