彩票走势图

我们在生成Excel工作表时，往往会产生一些没有数据的空白单元格，如果直接转换成图片的话，图片中就会存在一大片空白的地方，这样产看数据就会不方便。使用Aspose.Cells将工作表转换成图片时，可以通过几行简单的代码，就可以在图像输出之前删除工作表中的空白以及边框。

[C#]

//Instantiate a workbook
//Open the template file
Workbook book = new Workbook(@"e:\test\MyTestBook1.xls");

//Get the first worksheet
Worksheet sheet = book.Worksheets[0];

//Specify your print area if you want
//sheet.PageSetup.PrintArea = "A1:H8";

//To remove the white border around the image.
sheet.PageSetup.LeftMargin = 0;
sheet.PageSetup.RightMargin = 0;
sheet.PageSetup.BottomMargin = 0;
sheet.PageSetup.TopMargin = 0;

//Define ImageOrPrintOptions
ImageOrPrintOptions imgOptions = new ImageOrPrintOptions();
imgOptions.ImageFormat = ImageFormat.Emf;
//Set only one page would be rendered for the image
imgOptions.OnePagePerSheet = true;
imgOptions.PrintingPage = PrintingPageType.IgnoreBlank;

//Create the SheetRender object based on the sheet with its
//ImageOrPrintOptions attributes
SheetRender sr = new SheetRender(sheet, imgOptions);
//Convert the image
sr.ToImage(0, "e:\\test\\img_MyTestBook1.emf");
 

VB

'Instantiate a workbook
'Open the template file
Dim book As New Workbook("e:\test\MyTestBook1.xls")

'Get the first worksheet
Dim sheet As Worksheet = book.Worksheets(0)

'Specify your print area if you want
'sheet.PageSetup.PrintArea = "A1:H8";

'To remove the white border around the image.
sheet.PageSetup.LeftMargin = 0
sheet.PageSetup.RightMargin = 0
sheet.PageSetup.BottomMargin = 0
sheet.PageSetup.TopMargin = 0

'Define ImageOrPrintOptions
Dim imgOptions As New ImageOrPrintOptions()
imgOptions.ImageFormat = ImageFormat.Emf
'Set only one page would be rendered for the image
imgOptions.OnePagePerSheet = True
imgOptions.PrintingPage = PrintingPageType.IgnoreBlank

'Create the SheetRender object based on the sheet with its
'ImageOrPrintOptions attributes
Dim sr As New SheetRender(sheet, imgOptions)
'Convert the image
sr.ToImage(0, "e:\test\img_MyTestBook1.emf")