Помогите разобраться с COM сервером [D5, NT4]
ProfiUgl © (2002-01-11 11:09:00)
Доброго дня суток МАСТЕРА!
Пушу прогу на 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:00) [1]
Попробуй запятые как десятичный разделитель.
Height := "CentimetersToPoints{10,48)";
Widht := "CentimetersToPoints(24,13)";
Наверх 
ЧАТ |
Орешник |
|
