课程：

• 1、excel vba 打印指定路径下的文件
• 2、vba如何将excel单元格内容输出到word指定位置？
• 3、在excel中如何用VBA对指定单元格区域打印，求具体代码

excel vba 打印指定路径下的文件

Sub 打印()

    Workbooks.Open ("d:\xls\22.xls")

    Application.DisplayAlerts = False '关闭屏幕提示'

    '打印 "22.xls" 工作簿中的"Sheet1"工作表,从第1页到第1页,打印份数为1份'

    Workbooks("22.xls").Sheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1, Collate:=True

    Workbooks("22.xls").Close

    Application.DisplayAlerts = True '打开屏幕提示'

End Sub

'由于没有安装打印机,未进行测试!

vba如何将excel单元格内容输出到word指定位置？

功能上来说是可以实现的，关键是word指定的位置怎么能在vba让电脑识别你说的“指定位置”。然后把相应的数据写入word的文档中。VBA需要跨word、excel 2个应用程序传递数据。

方法一：在excel里编写一个程序段，打开本数据表，循环开始：步骤1，打开或新建一个word文档，把你说的指定位置找到，步骤2，把此位置内容改写为excel内想应的数据，步骤3，保存word文档退出；然后重复下一个数据，按上述步骤循环至结束。

也可以方法二：在word里编写程序，打开excel这个数据表，循环开始：步骤1，读取相应的数据到“指定位置”，步骤2，并另存为一个独立文件；然后重复读取下一个数据，继续重复上述步骤。

在excel中如何用VBA对指定单元格区域打印，求具体代码

方法1:先用PrintArea

设置打印区域，然后再打印。这种设置将会保存到EXCEL文件中。比如:

Worksheets("Sheet1").PageSetup.PrintArea

=

"$A$1:$C$5"

Worksheets("Sheet1").PrintOut

方法2:直接打印指定区域，而不修改打印区域设置。比如

Worksheets("Sheet1").Range("$A$1:$C$5").PrintOut