在VB（Visual Basic）中打印表格可以通过以下几种方法实现：
方法一：使用VBA的PrintOut方法
打开VBA编辑器
按下 `Alt + F11` 快捷键打开VBA编辑器。
批量打印所有工作表
使用以下代码可以遍历所有工作表并进行打印：
```vba
Sub BatchPrint（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.PrintOut
Next ws
End Sub
```
自定义打印设置
如果需要设置自定义的打印选项，如打印份数、是否双面打印等，可以使用 `PageSetup` 对象：
```vba
Sub CustomPrint（）
Dim ws As Worksheet
Dim pageSetup As PageSetup
For Each ws In ThisWorkbook.Worksheets
Set pageSetup = ws.PageSetup
pageSetup.PrintArea = ws.UsedRange.Address
pageSetup.Orientation = xlLandscape
pageSetup.PaperSize = xlPaperA4
pageSetup.Copies = 2 ' 设置打印份数
ws.PrintOut Preview:=False ' 直接打印
Next ws
End Sub
```
方法二：使用MsgBox提示用户确认打印
定义变量
定义一个变量 `是否继续` 用于提示用户是否确认打印。
遍历所有工作表并打印
使用以下代码可以遍历所有工作表并在用户确认后打印：
```vba
Sub BatchPrintWithConfirmation（）
Dim ws As Worksheet
Dim 是否继续 As VbMsgBoxResult
是否继续 = MsgBox（"确定要打印所有工作表吗？", vbQuestion + vbYesNo, "批量打印"）
If 是否继续 = vbNo Then Exit Sub
For Each ws In ThisWorkbook.Sheets
ws.PrintOut Preview:=False ' 打印当前工作表， Preview:=False 表示直接打印
Next ws
End Sub
```
方法三：指定特定工作表进行打印
定义循环变量
使用一个循环变量 `i` 来控制要打印的工作表。
遍历特定工作表并打印
```vba
Sub PrintSpecificSheets（）
Dim i As Integer
For i = 2 To 5
Sheets（i）.PrintOut Copies:=1 ' 打印第 i 个工作表， Copies:=1 表示打印一份
Next i
End Sub
```
方法四：设置打印区域和页眉页脚
基础打印设置
设置打印区域为已使用区域，纸张方向为横向，纸张大小为A4纸：
```vba
Sub BasicPrintSettings（）
With ActiveSheet.PageSetup
.PrintArea = ActiveSheet.UsedRange.Address
.Orientation = xlLandscape
.PaperSize = xlPaperA4
End With
End Sub
```
页眉页脚设置
设置页眉和页脚，包括文件名、当前页码、总页数和打印日期：
```vba
Sub HeaderFooterSettings（）
With ActiveSheet.PageSetup
.LeftHeader = "财务部"
.CenterHeader = "&F" ' 插入文件名
.RightHeader = "第&P页，共&N页"
.LeftFooter = ""
.CenterFooter = "打印日期：&D"
.RightFooter = "制表人：小王"
End With
End Sub
```
方法五：使用第三方报表控件
使用水晶报表（CrystalReport）控件
可以使用水晶报表控件或VB6.0自带的DataReport控件来生成和打印报表。
方法六：使用Printer对象进行高分辨率输出
引入命名空间
引入 `System` 和 `System.Drawing` 命名空间。
编写PrintDocument的PrintPage事件
在 `PrintDocument1_PrintPage` 事件中编写代码，将数据写入 `PrintDocument` 对象并进行打印。
这些方法可以根据具体需求选择使用，以实现高效的表格打印。