Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

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



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

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.004 c
4-90440
Alex870
2001-11-26 21:37
2002.01.28
Подскажите,


1-90318
oleksa
2002-01-11 15:58
2002.01.28
ListView и Checked Item-ы


14-90374
asafr
2001-12-04 18:28
2002.01.28
Появился lel и всё оживилось... О женщинах опять заговорили...


7-90405
Лана Розанова
2001-10-11 12:07
2002.01.28
Путь к каталогу


4-90427
WithoutHead
2001-11-27 19:09
2002.01.28
Help!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский