用专业报表功能，将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文件

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文件不是象页面设置一样横向，请问老师怎么解决