excel vba 如何获得 打印 参数

当我点下打印按钮后，弹出打印对话框，请问我该如何获得打印对话框中设置的参数呢。

帮助说明，修改程序可以设置打印参数，并显示即为。
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
expression 必需。该表达式返回“应用于”列表中的一个对象。

From Variant 类型，可选。打印的开始页号。如果省略该参数，将从起始位置开始打印。

To Variant 类型，可选。打印的终止页号。如果省略该参数，将打印至最后一页。

Copies Variant 类型，可选。要打印的份数。如果省略该参数，将只打印一份。

Preview Variant 类型，可选。如果该值为 True，则 Microsoft Excel 打印指定对象之前进行打印预览。如果该值为 False（或者省略此参数），则立即打印该对象。

ActivePrinter Variant 类型，可选。设置活动打印机的名称。

PrintToFile Variant 类型，可选。如果该值为 True，则打印输出到文件。如果没有指定 PrToFileName，则 Microsoft Excel 将提示用户输入要输出文件的文件名。

Collate Variant 类型，可选。如果该值为 True，则逐份打印每份副本。

PrToFileName 可选，Variant 类型。如果 PrintToFile 为 True，则本参数指定要打印到的文件名。

方法1：先用printarea 设置打印区域，然后再打印。这种设置将会保存到excel文件中。比如： worksheets("sheet1").pagesetup.printarea = "$a$1:$c$5" worksheets("sheet1").printout 方法2：直接打印指定区域，而不修改打印区域设置。比如 worksheets("sheet1").range("$a$1:$c$5").printout