TWordApplication, TWordDocument

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 ?

0

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

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.

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