True ,imageObj,imageObj,System.Object,,False,False ,imageFilename,imageFilename,System.String,D:_x005C_303_ImagePathTwo.TIF,False,False EngineV2 None;Black;2;None;False;4;Black Transparent Dim img As Image = CType(imageObj, Image) img.SelectActiveFrame(System.Drawing.Imaging.FrameDimension.Page, Data1.Line - 1) Dim ms As New System.IO.MemoryStream() img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) Image1.Image = Image.FromStream(ms) If Image1.Image.Height < Image1.Image.Width Then Image1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) End If 'prepare image Dim img As Image = Image.FromFile(imageFilename) Dim framesCount As Integer = img.GetFrameCount(System.Drawing.Imaging.FrameDimension.Page) Data1.CountData = framesCount imageObj = img Transparent 0,0.4,21,7.2 True None;Black;1;None;False;4;Black Transparent 0,0,17.5,28 17.5,28 Image1 None True 1 Data1 daa430423c454a2485204a2b0fa47dda 0,0,0,0 Page1 29.7 21 A4 Автовыбор Автовыбор True Arial,100 [50:0:0:0] False System.Dll System.Drawing.Dll System.Windows.Forms.Dll System.Data.Dll System.Xml.Dll Stimulsoft.Controls.Dll Stimulsoft.Base.Dll Stimulsoft.Report.Dll Report 9/19/2009 3:18:13 AM 8/10/2009 9:20:00 AM D:\Print 2.mrt 056720daee62450c8e2a42aef3b35085 Report Centimeters 2009.3.502 VB