TIP: Click on subject to list as thread! ANSI
echo: delphi
to: FRED BURGESS
from: COLIN TOWERS
date: 1997-09-08 18:52:00
subject: Printing a Form type

Wow, it's Fred!
Fred Burgess was passing little notes around the room to All..
 FB>                            Company Name
 FB>                          Company  Address
 FB>                        City, State Zip Code        Customer # : 1
 FB>                             Phone #'s              Invoice  # : 001
 FB> and then will need to set pulled information into a structured format
 FB> to print out a neat and clean page.
I would suggest some form of reporting tool to do that, as they have far 
better
printing capabilities. I was creating invoices when I did something similar, 
and
you could do it easily if you have word installed. To use word, I'd do the
following:
Uses OleAuto;
Var V : Variant;
Begin
 V:=CreateOleObject('Word.Basic');
 V.FileNew('MyTemplate.dot');
 V.EditFind('**CompanyName');
 If V.EditFindFound then V.Insert(CompanyName);
 {repeat for all variables}
 V.EditFind('**Details');
 If V.EditFindFound then V.Delete;
 V.Insert(Nicelyformattedtext);
 V.Print;
 V:=Unassigned;
End.
Then create the template in Word, save it under that name -- you won't even 
see
Word when you do this, so it looks like your own sheer genius :)
I think I've got the OLE commands correct for Word, but I could be wrong. 
Check
the manuals if it doesn't work!
--
Colin@haze.craybbs.co.uk
--- Terminate 5.02/Pro*at
---------------
* Origin: Colin's Pad! (2:254/211.8)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.