Excel的互操作打印

Question

我需要使用下面的打印设置打印Excel工作表的选定区域（我与Range.Select（）选择）：

打印机：微软XPS文档写入
打印选择
横向
A4
正常边距
在一页良券

我怎样才能做到这一点使用_Worksheet.PrintOut或_Worksheet.PrintOutEx？

在此先感谢！

Answer 1

试试这个（久经考验）

我假设你已经设置参考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; 

Answer 2

对于'单页上的匹配页'的工作，我们也应该将缩放属性设置为false。在一页

//良券

_with1.FitToPagesWide = 1; 

_with1.FitToPagesTall = 1; 

_with1.Zoom = False;