代码如下:
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