[求助]甘特图打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

图片点击可在新窗口打开查看此主题相关图片如下：甘特图打印.jpg

[此贴子已经被作者于2018/8/20 12:45:28编辑过]

用什么方式打印的？

我测试窗口打印没有问题，自己会分页打印整个表格内容

求助：

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

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

谢谢

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:甘特图求助 - f.foxdb

[此贴子已经被作者于2018/8/20 17:31:19编辑过]

1、要同时打印2个表可以，不能放在分区面板里，必须同时放在同一个panel中

2、表格看不到的地方默认就是可以打印的，只是如果超出一页必须分页打印出来

3、日期同步参考：http://www.foxtable.com/webhelp/scr/1453.htm

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2.foxdb

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

[此贴子已经被作者于2018/8/21 9:37:09编辑过]

标题居中可以设置一下

Dim t As Table = e.Form.Controls("Table1").Table

For Each c As Col In t.Cols

t.Cols(c.Name).TextAlign = TextAlignEnum.Center

Dim grp As WinForm.Panel = e.Form.Controls("Panel1")

Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

doc.Preview()

至于标题颜色，暂时没有办法处理

在窗口左边，修改甘特图临时表里面的 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

[此贴子已经被作者于2018/8/21 11:17:57编辑过]

Select Case e.DataCol.Name

Case "项目子任务_计划开始日期","项目子任务_计划完成日期","项目子任务_实际完成日期"

If e.DataRow.IsNull("项目子任务") = False Then

Dim dr As DataRow

dr = DataTables("室内设计项目").Find("[项目编号] = '" & e.DataRow("项目编号") & "'")

If dr IsNot Nothing Then

dr(e.DataRow("项目子任务") & "_计划开始日期") = e.DataRow("项目子任务_计划开始日期")

dr(e.DataRow("项目子任务")) = e.DataRow("项目子任务_计划完成日期")

dr(e.DataRow("项目子任务") & "_实际完成日期") = e.DataRow("项目子任务_实际完成日期")

End If

End Select

坛主，
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()

[此贴子已经被作者于2018/8/22 14:30:48编辑过]

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