Print a doc which was inserted in BLOB field

tompynation

How can we print the *.doc files which are imported into BLOB fields?

MBerger

If it's only word documents, then i'd save the BLOB to a temporary file, and use automation to open and print it.

suvidha

Hi,
From Toolbox use Picture box
In Picture box properties--> Source expression--> enter:Picture
Example: Item.Picture

MBerger

suvidha wrote:

Hi,
From Toolbox use Picture box
In Picture box properties--> Source expression--> enter:Picture
Example: Item.Picture

..which won't work with the .doc files he has stored as BLOB's

tompynation

i cant get it to work...

the lv_CommentLine.Attachment is my BLOB field but whenever it reaches the EXPORT method
i receive the error that i cannot export an empty blob file?

lv_CommentLine.RESET;
lv_CommentLine.SETRANGE("Table Name",lv_CommentLine."Table Name"::Item);
lv_CommentLine.SETRANGE("No.",lv_PackingLine."No.");
lv_CommentLine.SETRANGE(Type,lv_CommentLine.Type::MSDS);
lv_CommentLine.SETFILTER("Document Name",'<>%1','');
IF lv_CommentLine.FINDSET THEN BEGIN
lv_TremRoute.SETCURRENTKEY("Customer No.",Language);
REPEAT
IF lv_TremRoute.GET(lv_PackingHeader."Sell-to Customer No.",lv_CommentLine.Language) THEN BEGIN
lv_FileName := lv_CommentLine.Attachment.EXPORT;
PrintFile(lv_FileName);
END;
UNTIL lv_CommentLine.NEXT = 0;
END;

BBlue

You have to first do a CALCFIELDS on the BLOB field to see if it has value:

............
IF lv_TremRoute.GET(lv_PackingHeader."Sell-to Customer No.",lv_CommentLine.Language) THEN BEGIN
  lv_CommentLine.CALCFIELDS(Attachment);
  IF lv_CommentLine.Attachment.HASVALUE THEN     
    lv_FileName := lv_CommentLine.Attachment.EXPORT;
  PrintFile(lv_FileName);
END;
............

Regards

tompynation

ok thanks working fine now