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 ?