主题：如何打印目录树

DirectPrint

直接打印表。

语法：

DirectPrint(Preview, ShowDialog)

Preview: 是否打印预览，设为True预览，设为False直接打印。
ShowDialog：是否显示打印对话框。

例如：

With CurrentTable.PrintInfo
    .PaperKind = 0 '纸张类型设为自定义
    .PaperWidth = 250 '宽度设为250毫米
    .PaperHeight = 120 '高度设为120毫米
End With
CurrentTable.DirectPrint(True,False) '打印预览