TWordApplication, TWordDocument

Odpowiedz Nowy wątek
2003-12-15 08:28
0

Może się komuś przyda, poprawcie jeżeli coś nie tak

procedure TForm1.Button1Click(Sender: TObject);//otworz dokument Worda;
// na Formie wrzucone WordApplication1 i WordDocument1 (D5)
var
FileName : OleVariant;
begin
FileName:='wzor.doc'; //sciezka pliku

//uruchomienie Worda
WordApplication1.Documents.Add(FileName,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument as _Document);

//czcionka
WordDocument1.Range.Font.Size := 10;
WordDocument1.Range.Font.Name := 'Arial';

//ustawienia strony
WordDocument1.PageSetup.Orientation:=wdOrientLandscape;
WordDocument1.PageSetup.Set_LeftMargin(WordApplication1.CentimetersToPoints(1.5));
WordDocument1.PageSetup.Set_RightMargin(WordApplication1.CentimetersToPoints(1.5));
WordDocument1.PageSetup.Set_TopMargin(WordApplication1.CentimetersToPoints(1.5));
WordDocument1.PageSetup.Set_BottomMargin(WordApplication1.CentimetersToPoints(1.5));
WordDocument1.PageSetup.Set_HeaderDistance(0);
WordDocument1.PageSetup.Set_FooterDistance(0);

//Word na ekranie
WordApplication1.Left:=0;
WordApplication1.Top:=0;
WordApplication1.Width:=Screen.Width;
WordApplication1.Height:=Screen.Height;
WordApplication1.Caption:='Ala ma kota';
WordApplication1.Visible:=true;
WordApplication1.Activate;
end;

PS. Może ktoś wrzuci coś o Print.PageSetup(???) dla WebBrowsera ?

Pozostało 580 znaków

2003-12-15 14:26
0

http://www.torry.net


Szymek

<span style="color: blue">"Nie twierdzę, że kobiety są głupie,
zostały stworzone na podobieństwo mężczyzn...
"</span> - George Eliot<span style="color: green">

Pozostało 580 znaków

2003-12-15 16:07
0

Przepraszam, powiedzcie jeśli się mylę ale dlaczego wrzuciłeś to tutaj a nie do działu gotowce?

Pozostało 580 znaków

2003-12-15 17:41
0

Może i fakt ale jest to przykład, który bezskutecznie poszukuję dla WebBrowsera, chodzi mi konkretnie o kawałeczek kodu ustawiający orientację strony przed wydrukiem.

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0