Помогите разобраться с COM сервером

← →
ProfiUgl © (2002-01-11 11:09) [0]

Доброго дня суток МАСТЕРА!
Пушу прогу на Delphi 5. Мне необходимо напечатать конверт средствами MSWord97
Для этого я использую TWordApplication и TWordDocument.
По событию кнопки OnClick пишу обработчик:
var ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText:OleVariant; PrintBarCode, PrintFIMA, Size, Height, Widht, FeedSource:OleVariant; AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop:OleVariant; DefaultFaceUp, DefaultOrientation :OleVariant; begin Address := "My address"; ExtractAddress := false; AutoText := "0"; OmitReturnAddress := false; ReturnAddress := "Ret address"; ReturnAutoText := "0"; PrintBarCode := false; PrintFIMA := false; Size := "C4"; Height := "CentimetersToPoints{10.48)"; Widht := "CentimetersToPoints(24.13)"; FeedSource := "wdPrinterAutomaticSheetFeed"; AddressFromLeft := "wdAutoPosition"; AddressFromTop := "wdAutoPosition"; ReturnAddressFromLeft := "wdAutoPosition"; ReturnAddressFromTop := "wdAutoPosition"; DefaultFaceUp := true; WordDocument1.Envelope.Set_DefaultSize ("C4"); DefaultOrientation := "wdEnvelopeOrientation"; WordDocument1.Envelope.Insert(ExtractAddress, Address, AutoText, OmitReturnAddress, ReturnAddress, ReturnAutoText,PrintBarCode, PrintFIMA, Size, Height, Widht, FeedSource, AddressFromLeft, AddressFromTop, ReturnAddressFromLeft, ReturnAddressFromTop, DefaultFaceUp, DefaultOrientation); end;
Проблема в следующем: при выполнении WordDocument1.Envelope.Insert (.....)
происходит ощибка с сообщениеем: "неверна задана еденица измерения"
Может кто сталкивался с этим, буду очень признателен если кто поможет советом

← →
USAtyj © (2002-01-11 12:08) [1]

Попробуй запятые как десятичный разделитель.
Height := "CentimetersToPoints{10,48)"; Widht := "CentimetersToPoints(24,13)";

Помогите разобраться с COM сервером Найти похожие ветки