共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：使用PrintDoc绘图总是有空白区域
1楼
genggeng 发表于：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
此主题相关图片如下：snipaste_2024-07-20_16-50-55.png2楼
有点蓝 发表于：2024/7/20 17:24:00请提供完整可以测试的代码
3楼
有点蓝 发表于：2024/7/20 17:43:00rg的大小肯定要比Doc的大小设置的小。
那么大小还要减去位置的大小
rg.Height = 50 - 5
rg.Width = 50 - 5
rg.x = 5
rg.y = 5
如果要居中显示，还要减去位置的2倍大小
rg.Height = 50 - 10
rg.Width = 50 - 10
共3 条记录, 每页显示 10 条, 页签:
[1]