主题：请教如何打印关联表的部份列

在窗口加按钮“打印”，代码：

With Tables("SALES.Saleslist").PrintInfo
    .Title = "订单交货明细"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
End With
Tables("SALES.Saleslist").Print(True,False)

这样效果是把整个表打印了，我想选定其中某几列打印，要怎么加代码？