我需要使用以下打印设置打印excel工作表的选定区域(使用Range.Select()选择):
打印机: Microsoft XPS文档写入器
打印选择
横向
A4
正常边距
在一页上调整工作表
如何使用_Worksheet.PrintOut或_Worksheet.PrintOutEx实现这一点?
提前感谢!
发布于 2012-06-06 00:52:27
尝试一下(尝试并测试了)
我假设您已经设置了对Excel的引用,并且已经声明了如下对象
Microsoft.Office.Interop.Excel.Application xlexcel;
Microsoft.Office.Interop.Excel.Workbook xlWorkBook;
Microsoft.Office.Interop.Excel.Worksheet xlWorkSheet;
Microsoft.Office.Interop.Excel.Range xlRange;
object misValue = System.Reflection.Missing.Value;
这将放在代码的后面部分。
// Get the current printer
string Defprinter = null;
Defprinter = xlexcel.ActivePrinter;
// Set the printer to Microsoft XPS Document Writer
xlexcel.ActivePrinter = "Microsoft XPS Document Writer on Ne01:";
// Setup our sheet
var _with1 = xlWorkSheet.PageSetup;
// A4 papersize
_with1.PaperSize = Excel.XlPaperSize.xlPaperA4;
// Landscape orientation
_with1.Orientation = Excel.XlPageOrientation.xlLandscape;
// Fit Sheet on One Page
_with1.FitToPagesWide = 1;
_with1.FitToPagesTall = 1;
// Normal Margins
_with1.LeftMargin = xlexcel.InchesToPoints(0.7);
_with1.RightMargin = xlexcel.InchesToPoints(0.7);
_with1.TopMargin = xlexcel.InchesToPoints(0.75);
_with1.BottomMargin = xlexcel.InchesToPoints(0.75);
_with1.HeaderMargin = xlexcel.InchesToPoints(0.3);
_with1.FooterMargin = xlexcel.InchesToPoints(0.3);
// Print the range
xlRange.PrintOutEx(misValue, misValue, misValue, misValue,
misValue, misValue, misValue, misValue);
// Set printer back to what it was
xlexcel.ActivePrinter = Defprinter;
发布于 2015-03-18 23:30:57
为了让“Fit Sheet on One Page”起作用,我们还应该将Zoom属性设置为false。
//在一页上调整工作表
_with1.FitToPagesWide = 1;
_with1.FitToPagesTall = 1;
_with1.Zoom = False;
https://stackoverflow.com/questions/10900565
复制相似问题