| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Excel [D7, XP]

Ref ©   (2006-09-05 05:28:00) 

Доброго времени суток.
Создаю книгу Excel таким образом:
в uses ComObj;

procedure TForm8.BitBtn5Click(Sender: TObject);
var i,k:integer;
XL, Sheet:Variant;
begin
XL:= CreateOleObject('Excel.Application');
XL.WorkBooks.Add;
Sheet:= XL.ActiveWorkBook.Sheets[1];
Sheet.PageSetup.Orientation:= 1;
...
XL.Visible:=true;
Sheet:=UnAssigned;
XL:=UnAssigned;
end;
Проблема в том что я  никак не могу задать поля для первого листа? Помогите плиз

---

Думкин   (2006-09-05 06:52:00) [1]

Макрос запиши и посмотри.
Например:
With ActiveSheet.PageSetup
       .LeftHeader = ""
       .CenterHeader = ""
       .RightHeader = ""
       .LeftFooter = ""
       .CenterFooter = ""
       .RightFooter = ""
       .LeftMargin = Application.InchesToPoints(0.984251968503937)
       .RightMargin = Application.InchesToPoints(0.984251968503937)
       .TopMargin = Application.InchesToPoints(0.78740157480315)
       .BottomMargin = Application.InchesToPoints(0.78740157480315)
       .HeaderMargin = Application.InchesToPoints(0.708661417322835)
       .FooterMargin = Application.InchesToPoints(0.708661417322835)
       .PrintHeadings = False
       .PrintGridlines = True
       .PrintComments = xlPrintNoComments
       .PrintQuality = 600
       .CenterHorizontally = False
       .CenterVertically = False
       .Orientation = xlPortrait
       .Draft = False
       .PaperSize = xlPaperA4
       .FirstPageNumber = xlAutomatic
       .Order = xlDownThenOver
       .BlackAndWhite = False
       .Zoom = 100
   End With

---

Ref   (2006-09-05 06:28:00) [2]

никто не знает?

---

Ref   (2006-09-05 05:29:00) [3]

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

---

Наверх