如果能這樣就好了,建議狐爸爸實現它:
Dim doc As PrintDoc = Forms("XXX").Controls("Table1").GernatePrintDoc()
doc.Preview()