主题：[分享] 编码绘制甘特图(上贴线帽的实例)20131206更新

换一种方式，直接打印表吧

Dim tb As Table = Forms("项目甘特图").Controls("Table2").Table
With tb.PrintInfo
    .PaperKind = 0 '纸张类型设为自定义
    .PaperWidth = 250 '宽度设为250毫米
    .PaperHeight = 120 '高度设为120毫米
End With
tb.DirectPrint(True,False) '打印预览