Как установить параметры печати: отступы на листе, ориентацию листа и др.?
Установка параметров печати — довольно продолжительный процесс, поэтому советую настроить их в предварительно подготовленном шаблоне. Все параметры печати задаются в свойстве PageSetup объекта Worksheet. Но учтите, что текст в свойствах Footer или Header для Left, Right, Center суммарно не должен превышать 255 символов.
Для задания отступов в сантиметрах используйте функцию Excel.Application.CentimetersToPoints
Delphi:
ASheet.Range['A1', EmptyParam].Formula := 'Любой текст, чтоб сработал PrintPreviw'; ASheet.PageSetup.LeftMargin := 0; ASheet.PageSetup.TopMargin := 0; ASheet.PageSetup.RightMargin := 0; ASheet.PageSetup.BottomMargin := 0; ASheet.PageSetup.HeaderMargin := 0; ASheet.PageSetup.FooterMargin := 0; ASheet.PageSetup.FitToPagesWide := 1; ASheet.PageSetup.FitToPagesTall := 1; ASheet.PrintPreview(True, lcid);
Если вы выполните данный код, то заметите, как долго Excel настраивает все границы печати.
PageSetup Property
CentimetersToPoints Method
