Форум: "Основная";
Текущий архив: 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 (.....)
происходит ощибка с сообщениеем: "неверна задана еденица измерения"
Может кто сталкивался с этим, буду очень признателен если кто поможет советом

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.004 c