Скачать: CL | DM;

Excel   Найти похожие ветки 

← →
Ref   (2006-09-05 05:28) [0]

Доброго времени суток.
Создаю книгу 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;
Проблема в том что я  никак не могу задать поля для первого листа? Помогите плиз

---

← →
Ref   (2006-09-05 05:29) [1]

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

---

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

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

---

← →
Думкин ©   (2006-09-05 06:52) [3]

Макрос запиши и посмотри.
Например:
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c