Excel的打印设置
因为经常需要把客人的Excel文件中的部分内容复制到我司的Excel中，于是做了个批量转换的小程序。可是打印那里不知道如何设置，难题如下：
第一点：如何设置打印范围？（网上的例子，就两个，一个是每一次都要预览，取消就报错。一个是打印，我没有试成功的。）
第二点：如何设置打印模式（分页模式）？
第三点：如何设置一页内打印完？
每一个问题15分。
[解决办法]
提供一种方法
use ComObj
var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.WorkBooks.Open(ExePath + 'Excel.xls');
ExcelApp.Worksheets[1].Activate;//操作第一个工作表
ExcelApp.ActiveSheet.Rows[5{行号}].PageBreak := 1;//插入分页符，为分页模式准备
ExcelApp.ActiveWindow.View := xlPageBreakPreview;//分页模式
ExcelApp.ActiveSheet.PageSetup.PrintArea := '$A$1:$R$5';//设置打印区域
end;
简单的写几个语句，希望能帮到你
