在Visual Basic （VB） 中，可以使用VBA （Visual Basic for Applications） 编写程序来自动打印工作表。以下是一个简单的示例，展示了如何批量打印所有工作表，并包含了一些自定义打印设置的选项。
批量打印所有工作表
```vba
Sub BatchPrint（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.PrintOut
Next ws
End Sub
```
自定义打印设置
如果你需要设置一些自定义的打印选项，比如打印份数、是否双面打印等，可以使用 `PageSetup` 对象。以下是一个示例：
```vba
Sub CustomBatchPrint（）
Dim ws As Worksheet
Dim printSettings As PageSetup
For Each ws In ThisWorkbook.Worksheets
Set printSettings = ws.PageSetup
printSettings.PrintArea = "A1:N" & ws.Cells（ws.Rows.Count, "N"）.End（xlUp）.Row
printSettings.Orientation = xlLandscape
printSettings.PaperSize = xlPaperA4
printSettings.PrintQuality = 100
ws.PrintOut From:=1, To:=ws.Pages.Count, _
PrintRange:=ws.Range（"A1:N" & ws.Cells（ws.Rows.Count, "N"）.End（xlUp）.Row）, _
Preview:=False
Next ws
End Sub
```
打印窗体
如果你想要打印窗体的特定部分，可以使用 `PrintForm` 方法。以下是一个示例：
```vba
Private Sub PrintForm_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load
' 设置打印文档的边距
Dim printDocument As New PrintDocument（）
printDocument.DefaultPageSettings.Margins = New Margins（10, 10, 10, 10）
' 添加打印事件处理程序
AddHandler printDocument.PrintPage, AddressOf PrintDocument_PrintPage
' 显示打印对话框并开始打印
Dim printDialog As New PrintDialog（）
If printDialog.ShowDialog（） = DialogResult.OK Then
printDocument.Print（）
End If
End Sub
Private Sub PrintDocument_PrintPage（ByVal sender As Object, ByVal e As PrintPageEventArgs）
' 在这里添加自定义的打印逻辑
e.Graphics.DrawString（"Hello, World!", New Font（"Arial", 12）, Brushes.Black, 10, 10）
End Sub
```
注意事项
权限：
确保你的VBA宏有足够的权限来执行打印操作。
打印机设置：
在打印之前，确保打印机已正确设置，并且有足够的纸张和墨盒。
错误处理：
在实际应用中，建议添加适当的错误处理逻辑，以确保程序的健壮性。
通过这些示例，你可以根据自己的需求编写出适合你的打印程序。