主题：[求助]甘特图打印

表甘特图窗口预览不完整，怎么打印 完整的甘特图呢？

是在窗口中的甘特图，窗口左边是表任务开始和结束时间，窗口右边是表生成的甘特图，见下图

 

此主题相关图片如下：甘特图打印.jpg

求助：

1、大的红色方框区域：甘特图打印（左边表数据和右边彩色航道图可以一起都打印出来吗？ 甘特图下图没完全展开显示，要完整打印）； 打印文件保存成图片格式可以吗？

2、小的红色方框区域：甘特图窗口修改3个日期同步修改室内设计项目表里面对应项目编号的项目任务的3个日期

谢谢

 

此主题相关图片如下：红色区域.jpg

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

点击浏览该文件:甘特图求助 - f.foxdb

Dim grp As WinForm.Panel = e.Form.Controls("Panel1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()

 

1、左表文字不居中 右表周末字体颜色要彩色显示，代码怎么修改呢？

2、打印这个文件保存成图片，代码怎么写呢？很多时候不一定要打印纸质

 

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

点击浏览该文件:2.foxdb

此主题相关图片如下：左表文字不居中 右表周末字体颜色要彩色显示？.png

在窗口左边，修改甘特图临时表里面的 3列日期，室内设计项目表对应的时间同步修改，求助

帮助 跨表引用的自动更新 里面两个表的的列是对应的，我的表不是这样的，是多列对1列，不会根据帮助修改，谢谢辛苦了

 

If e.DataCol.Name = "项目子任务" Then
    If e.NewValue Is Nothing Then
        e.DataRow("项目子任务_计划开始日期") = Nothing
        e.DataRow("项目子任务_计划完成日期") = Nothing
        e.DataRow("项目子任务_实际完成日期") = Nothing
    ElseIf e.DataRow("项目子任务") = "方案设计完成时间节点_平面意向方案完成时间"
        Dim dr As DataRow
        dr = DataTables("室内设计项目").Find("[项目编号] = '" & e.DataRow("项目编号") & "'")
        dr("方案设计完成时间节点_平面意向方案完成时间_计划开始日期") = e.DataRow("项目子任务_计划开始日期")
        dr("方案设计完成时间节点_平面意向方案完成时间") = e.DataRow("项目子任务_计划完成日期")
        dr("方案设计完成时间节点_平面意向方案完成时间_实际完成日期") = e.DataRow("项目子任务_实际完成日期")

    ElseIf e.DataRow("项目子任务") = "方案设计完成时间节点_效果图方案完成时间"
        Dim dr As DataRow
        dr = DataTables("室内设计项目").Find("[项目编号] = '" & e.DataRow("项目编号") & "'")
        dr("方案设计完成时间节点_平面意向方案完成时间_计划开始日期") = e.DataRow("项目子任务_计划开始日期")
        dr("方案设计完成时间节点_平面意向方案完成时间") = e.DataRow("项目子任务_计划完成日期")
        dr("方案设计完成时间节点_平面意向方案完成时间_实际完成日期") = e.DataRow("项目子任务_实际完成日期")

    End If
End If

 

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

点击浏览该文件:3.foxdb

坛主，
1、打印panel面板，打印代码的同时，能保存出图片吗？
2、设置成A3横向彩色打印，下面代码怎么增加呢？

Dim t As Table = e.Form.Controls("Table1").Table
For Each c As Col In t.Cols
    t.Cols(c.Name).TextAlign = TextAlignEnum.Center
Next
Dim grp As WinForm.Panel = e.Form.Controls("Panel1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PageSetting.Landscape = True '横向打印
doc.Preview()