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

用的是教程中的案例，重写了单元格绘图事件

20131206 更新 

 
此主题相关图片如下：jdfw.gif

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编码绘制甘特图.table

 20131206更新

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目甘特图.zip

你每天这么晚还不睡，小心风一大，把你吹跑了。

更新

在一楼

      俺没试过打印。

我在命令窗口中执行，没错啊？

用的是最后更新的那个案例

Dim sct As WinForm.SplitContainer = Forms("项目甘特图").Controls("SplitContainer1")
Dim pnl2 As WinForm.SplitPanel = sct.Panel2
Dim doc As PrintDoc = Forms("项目甘特图").GernatePrintDoc(pnl2)    '出錯位置
doc.Preview()

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

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) '打印预览