- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 使用PrintDoc绘图总是有空白区域 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192769)
-- 发布时间：2024/7/20 16:54:00
-- 使用PrintDoc绘图总是有空白区域
代码如下：
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
此主题相关图片如下：snipaste_2024-07-20_16-50-55.png-- 发布时间：2024/7/20 17:24:00
--
请提供完整可以测试的代码
-- 发布时间：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