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


  共有2096人关注过本帖树形打印复制链接

主题:使用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


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/20 17:24:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/20 17:43:00 [只看该作者]

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

那么大小还要减去位置的大小
rg.Height = 50 - 5
rg.Width = 50 - 5
rg.x = 5
rg.y = 5

如果要居中显示,还要减去位置的2倍大小
rg.Height = 50 - 10
rg.Width = 50 - 10

 回到顶部