Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.061 c
15-1157458802
ddddd
2006-09-05 16:20
2006.09.24
Как расторгнуть контракт?


2-1157189467
nikv
2006-09-02 13:31
2006.09.24
Текущая директория


3-1153653469
londinium
2006-07-23 15:17
2006.09.24
IBX и DeleteSQL()


1-1155143860
Handle
2006-08-09 21:17
2006.09.24
Вопрос про SysListView.


2-1157319054
ramzes2
2006-09-04 01:30
2006.09.24
как назначить родителя диалогу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский