作者：乔山办公网日期：
返回目录：excel表格制作
Sub Macro1()
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
宏名为macro1，表1为sheet1，表2为sheet2 ，可根据实际修改。
其实自己录一个更知好。方法是：依次点菜单：工具-宏-录制新宏，在弹出的对话框中输入宏道名（可以默认的），确定之后开始录制。点表1，再同时按Ctrl+A就可选择表1全部内容，按Ctrl+V完成复制。点表2，点a1单元格，同时按Alt+E键，再按S键，在弹出的对话框中点选“数值”，确定并点专停止录制按钮，完成录制。再打开工具-宏-宏，就可以看属到你刚才录制的宏了，可以运行，也可以编辑。
请安装Adobe Acrobat XI Pro软件，并将默认打印机设置为Adobe PDF虚拟打印机，运行以下程序连知续打印指定工作表，要自己选择路径和输入文件名（或请高手道补充），完成名工作表打印转专换输出后，用Adobe Acrobat XI Pro软件，在菜单-创建-将多个文件创建PDF，选属择你要的文件或其它格式文件，排序，合并文件即可。
Sub 宏1()
Dim i As Integer, arr() As Variant
arr = Array("1", " 2", "3甲", "3乙", "3丙", "4甲A")
For i = 0 To 5
Sheets(arr(i)).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next
End Sub
看样子，sheet1的单元格和sheet列表头是有对应关系的。你把第一张sheet的样子截图一张补上来，然后把第二张sheet每一列表头依次写上来才能利于回答此问题。
你的问题太大 没有针对性 不好直接回答……
你要连知续打印 什么范围的东西道？
直接使用打印命令 就可以是 自动连续打印单个专的工作表 或者是工作簿 中的每一个工作表……
你应该 对你的问题 再做补充属 才会得到 你想要的具体答案！