在Excel中设置编程表格打印，可以通过以下步骤进行：
打开VBA编辑器
按下 `Alt + F11` 键打开VBA编辑器。
批量打印工作表
编写一个VBA宏来遍历工作簿中的所有工作表并进行打印。例如：
```vba
Sub BatchPrint（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.PrintOut
Next ws
End Sub
```
这段代码会遍历当前工作簿中的所有工作表，并对每个工作表执行 `PrintOut` 命令，即打印工作表。
自定义打印设置
使用 `PageSetup` 对象来设置打印选项，如打印份数、是否双面打印、打印范围等。例如：
```vba
Sub CustomBatchPrint（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.PageSetup
.PrintArea = "A1:C10" ' 设置打印区域为A1到C10
.PrintCopies = 3 ' 设置打印份数为3
.Orientation = xlLandscape ' 设置为横向打印
.FitToPagesWide = 1 ' 设置为一页宽
.FitToPagesTall = 1 ' 设置为一页高
.PrintTitleRows = 1 ' 设置第一行为重复显示行
.PrintTitleColumns = "A" ' 设置A列为列表列
.LeftHeader = "&F" ' 设置页眉为文件名
.RightHeader = "&D" ' 设置页脚为日期
End With
Next ws
End Sub
```
设置打印范围
通过设置 `PrintArea` 属性来指定工作表的打印范围，避免打印不必要的内容。例如：
```vba
Sub SetPrintRange（）
Sheets（"Sheet1"）.PageSetup.PrintArea = "A1:C10"
End Sub
```
打印多份文档
通过设置 `PrintCopies` 属性来指定打印的份数。例如：
```vba
Sub PrintCopies（）
With ActiveSheet.PageSetup
.PrintCopies = 3
End With
End Sub
```
横向打印
通过设置 `Orientation` 属性为 `xlLandscape` 来实现横向打印。例如：
```vba
Sub PrintLandscape（）
Sheets（"Sheet2"）.PageSetup.Orientation = xlLandscape
End Sub
```
设置页边距
通过设置 `TopMargin`、`BottomMargin`、`LeftMargin` 和 `RightMargin` 属性来调整页边距。例如：
```vba
Sub SetMargins（）
With Sheets（"Sheet3"）.PageSetup
.TopMargin = 45
.BottomMargin = 25
.LeftMargin = 20
.RightMargin = 20
End With
End Sub
```
预览打印效果
在打印之前，可以使用 `PrintPreview` 方法来预览打印效果。例如：
```vba
Sub PrintPreview（）
ThisWorkbook.Sheets（"Sheet1"）.PrintPreview
End Sub
```
定时任务
可以使用 `Application.OnTime` 方法来设置定时任务，实现每天自动打印。例如：
```vba
Sub 设置定时打印（）
Dim 定时打印任务 As Date
Dim 打印时间 As String
打印时间 = "17:30:00"
定时打印任务 = TimeValue（打印时间）
Application.OnTime 定时打印任务， "打印表格"
MsgBox "定时任务已设置!"
End Sub
```
通过以上步骤和代码示例，你可以实现编程表格的批量打印和自定义打印设置。根据实际需求选择合适的代码片段，并进行相应的调整即可。