Delphi6 + Excel - как убрать разрыв страниц?

Chulpon
Дата: 10.06.2009 17:54:13
Привет всем!
Помогите кто знает как убрать разрыв страницу в Excel через Delphi..
Создаю отчет динамический без шаблона ...
Отчет прекрасно работает..
Проблема при печате и просмотре..
В просмотре половина страница нету...
тоесть один лист разделена на 4 листа..
Потом создал макрос ..
В макросе
Sub Macro1()
'
' Macro1 Macro
'
'   ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=3
End Sub

Сейчас немогу перевести этот макрос на Delphi6
SQLPowerUser
Дата: 11.06.2009 17:35:09
Chulpon

Проблема при печате и просмотре..
В просмотре половина страница нету...
тоесть один лист разделена на 4 листа..

Можно попробовать что-нибудь из этого:
 // Установка полей
 Sheet.PageSetup.LeftMargin := 0;
 Sheet.PageSetup.RightMargin := 0;
 Sheet.PageSetup.TopMargin := 0;
 Sheet.PageSetup.BottomMargin := 0;

 Sheet.PageSetup.HeaderMargin := 0;
 Sheet.PageSetup.FooterMargin := 0;
 Sheet.PageSetup.Orientation := 2; {Альбомная ориентация страницы}
 Sheet.PageSetup.Orientation := 1; {Книжная ориентация страницы}
 Sheet.PageSetup.Zoom := 85; {Масштаб печати}

 // Перейдем в режим предворительного просмотра
 Excel.Visible := True; // Excel.Visible должн быть равен true, иначе все повиснет!
 Sheet.PrintPreview;