使用PrintDoc绘图总是有空白区域 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 使用PrintDoc绘图总是有空白区域

共有2123人关注过本帖树形打印复制链接主题：使用PrintDoc绘图总是有空白区域

genggeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：26 积分：354 威望：0 精华：0 注册：2022/8/18 11:23:00

使用PrintDoc绘图总是有空白区域 发帖心情

Post By：2024/7/20 16:54:00 [只看该作者]

代码如下：

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.Width = 50

doc.PageSetting.Height = 50

doc.

Doc.PageSetting.LeftMargin = 0 '设置左边距

Doc.PageSetting.RightMargin = 0 '设置右边距

Doc.PageSetting.TopMargin = 0 '设置上边距

Doc.PageSetting.BottomMargin = 0 '设置下边距

Dim rg As prt.RenderGraphics

中间是用rg绘图的代码

rg.Height = 50

rg.Width = 50

rg.x = 5

rg.y = 5

Doc.body.Children.Add(rg)

Doc.SavePDF(txt3 & ".pdf", False)

边框已经设置为0了，而且rg的宽度和Doc的宽度也一样，但是就是会显示不全。

请问该如何解决？

此主题相关图片如下：snipaste_2024-07-20_16-50-55.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/20 17:24:00 [只看该作者]

请提供完整可以测试的代码

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/20 17:43:00 [只看该作者]

rg的大小肯定要比Doc的大小设置的小。

另外，还设置了位置：http://www.foxtable.com/webhelp/topics/1177.htm

那么大小还要减去位置的大小

rg.Height = 50 - 5

rg.Width = 50 - 5

rg.x = 5

rg.y = 5

如果要居中显示，还要减去位置的2倍大小

rg.Height = 50 - 10

rg.Width = 50 - 10

下一主题 >> << 上一主题

主题：使用PrintDoc绘图总是有空白区域