Как задать/убрать область печати? Как вызвать PrintPreview? Как напечатать лист?

Delphi:

// Зададим область печати A1:D10

ASheet.PageSetup.PrintArea := '$A$1:$D$10';

// Удаляем область печати, присвоив пустую строку

ASheet.PageSetup.PrintArea := ''; // Вызов PrintPreview

ASheet.PrintPreview; // Печать на любой принтер (в примере на "PDFCreator")

// Если на активный принтер, то вместо имени принтера указать EmptyParam

ASheet.DefaultInterface.PrintOut( EmptyParam, // From: OleVariant;

EmptyParam, // To_: OleVariant;

1, //Copies: OleVariant;

EmptyParam, // Preview: OleVariant;

'PDFCreator', // ActivePrinter: OleVariant;

EmptyParam, // PrintToFile: OleVariant;

True, //Collate: OleVariant;

EmptyParam, //PrToFileName: OleVariant;

lcid );

PrintArea Property

PrintOut Method

PrintPreview Method

How to: Print Worksheets