主题：jpg转pdf时问题

用专业报表功能，将jpg图片转为pdf文件出现问题，就是图片不在中间，如何解决：

 

Dim fl As String =  "d:\test.pdf"

Dim doc  As New PrintDoc  '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("D:\000临时文件夹\001.jpg") '设置图片
doc.PageSetting.Width = 210
 doc.PageSetting.Height =  297

doc.Body.Children.Add(rm) '将图片对象加入报表
 doc.SavePDF(fl)  '保存为PDF文件

 

此主题相关图片如下：捕获.jpg

参考：http://www.foxtable.com/webhelp/topics/1182.htm

Dim fl As String =  "d:\test.pdf"

Dim doc  As New PrintDoc  '定义一个报表对象
Doc.PageSetting.Width=297
Doc.PageSetting.Height=210
doc.PageSetting.Landscape =  True  '横向打印

Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距

Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage( "D:\000临时文件夹\001.jpg" ) '设置图片

rm.Width = "Parent.Width" '宽度等于容器宽度
rm.Height = "Parent.Height" '高度等于容器高度

rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center   '居中显示

doc.Body.Children.Add(rm)  '将图片对象加入报表
 doc.SavePDF(fl)   '保存为PDF文件

 

图片是横向时pdf文件不是象页面设置一样横向，请问老师怎么解决

 

此主题相关图片如下：捕获.jpg

去掉doc.PageSetting.Landscape =  True