Как напечатать определенную страницу

[k1r1ch]

Вопрос по названию темы. В интернете нашел sheets[x], но так печатается только уменьшенная версия таблицы в углу листа, а надо на весь лист.

[pivas]

У Вас уже была подобная проблема и Вы её успешно решили установить 100% от натуральной величины).

[SAS888]

Если я правильно понял, то требуется напечатать определенный диапазон на всю страницу. Если так, то можно воспользоваться следующим кодом:

Sub PrintAr()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$10:$E$30"
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

После этого, диапазон "A10:E30" будет напечатан на всю страницу.

[k1r1ch]

2pivas: Действительно, была похожая проблема. Теперь при печати через Excel таблица занимает весь лист, а через мою программу - от силы 1/8 листа в углу.
2SAS888: Нет, нужно следующее: в документе 2 страницы. Напечатать надо именно 2-ую страницу, но на весь лист.

[pivas]

Значит проблема в программе. Как документ выводится печать?

[k1r1ch]

По нажатию одной кнопки печатается первый лист:

procedure MainWork;
var i : Integer;
begin
  DateTime := Date;                             
  Excel := CreateOleObject('Excel.Application');   
  Excel.Workbooks.Open[SetPath];                   
  Excel.DisplayAlerts := False;                   
  Excel.Visible := False;                          
  For i := 1 to 5 do   
    begin
    DateTime := IncDay(DateTime);
    HolidayTest;
    DecodeDate(DateTime, Year, Month, Day); 
    MonthToWord;
    Excel.Range['AD5'] := IntToStr(Day);        
    Excel.Range['AI5'] := MonthWord;           
    DateTime := IncDay(DateTime);
    HolidayTest;
    DecodeDate(DateTime, Year, Month, Day);
    MonthToWord;
    Excel.Range['DR5'] := IntToStr(Day);
    Excel.Range['DW5'] := MonthWord;
    Excel.ActiveSheet.PrintOut;               
    end;                                     
  Excel.ActiveWorkbook.Close;                
  Excel.Application.Quit;                   
end;

И он печатается нормально. А вот по нажатию другой кнопки должен печататься 2-ой лист.
Причем я изменил только строчку Excel.ActiveSheet.PrintOut на Excel.Sheets[2].PrintOut и убрал часть кода, которая подставляла дату в ячейки.
Вот код второй кнопки:

procedure TForm1.MainBackClick(Sender: TObject);
var i : Integer;
begin
  Ini := TIniFile.Create(extractfilepath(Application.ExeName)+'Settings.ini');
  SetPath := Ini.ReadString('PathToSheet', 'SetPath',
  'C:\Program Files\SAPL') + '\Т005НТ.xls';
  Ini.Free;
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open[SetPath];
  Excel.DisplayAlerts := False;
  Excel.Visible := False;
  For i := 1 to 5 do Excel.Sheets[2].PrintOut;
  Excel.ActiveWorkbook.Close;               
  Excel.Application.Quit;                    
end;

[pivas]

Я не параноик, но отпишитесь, что у Вас написано в параметрах страницы. Меня интересуют пункты установить...% от натуральной величины и значение левого поля.

[k1r1ch]

Левое поле - 1, разместить не более чем на 1 стр в ширину и 1 стр в высоту.

[pivas]

Прикрепите файлик.

[k1r1ch]

Вот файл:
Т005НТ.rar