Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Помогите разобраться с 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)";




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
1-90250           raiv                  2002-01-09 15:02  2002.01.28  
Где можно скачать TeeChart Pro VCL для


14-90368          fliz                  2001-12-04 14:57  2002.01.28  
мне вот тут приколы прислали ...


3-90231           Кнопка                2001-12-07 09:32  2002.01.28  
Поиск в базе данных (Очень срочно!!!)


1-90309           Hair_Fly              2002-01-11 11:07  2002.01.28  
Как при компиляции задавать имя exe-файла ?


1-90324           DStealth              2002-01-10 19:01  2002.01.28  
Как импортировать из DLL класс?