Форум: "Основная";
Поиск по всему сайту: 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.029 c
1-90276           Дмитрий _Ч            2002-01-09 16:05  2002.01.28  
Мат. моделирование средствами Delphi 6


3-90215           Алекс С.              2001-12-22 15:00  2002.01.28  
LookupField


7-90390           Andrei                2001-10-17 10:08  2002.01.28  
Помогите: необходима эмуляция поведения мыши


3-90217           kay                   2001-12-24 22:12  2002.01.28  
BDE


7-90402           Ketmar                2001-10-14 14:10  2002.01.28  
как заменить своим или отрубить окошко менеджера задач (ctrl+alt+del) в Win98?