PROCEDURE WordToPDF 
LOCAL loWord,loDoc 
loWord=CREATEOBJECT("Word.Application") 
loDoc=loWord.Documents.ADD() 

*\ Optional, but proccess become slower 
* loWord.APPLICATION.VISIBLE=.T. 

*\Enter key, moving pointer 
FOR J =1 TO 15 
   loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeParagraph 
ENDFOR 

*\Set Alignment,Font and writing some word 
loWord.ActiveDocument.WINDOWS(1).SELECTION.ParagraphFormat.ALIGNMENT= 1  && wdAlignParagraphCenter 
loWord.ActiveDocument.WINDOWS(1).SELECTION.FONT.NAME="Arial" 
loWord.ActiveDocument.WINDOWS(1).SELECTION.FONT.Bold=.T. 
loWord.ActiveDocument.WINDOWS(1).SELECTION.FONT.SIZE = 16 
loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeText("INI CUMA SIMULASI AJAH KOQ") 

*\Enter key, moving pointer 
FOR J =1 TO 10 
   loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeParagraph 
ENDFOR 

loWord.ActiveDocument.WINDOWS(1).SELECTION.ParagraphFormat.ALIGNMENT= 3  && wdAlignParagraphJustify 
loWord.ActiveDocument.WINDOWS(1).SELECTION.FONT.SIZE = 12 
loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeText("salam kenal") 
loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeParagraph 
loWord.ActiveDocument.WINDOWS(1).SELECTION.TypeText("   -teguh-") 

TRY 
*\Forcing Default Printer to PDFWriter (Acrobat PDFWriter should be installed first) 
   loWord.ActivePrinter = "Adobe PDF" 
CATCH 
   MESSAGEBOX("Acrobat PDFWriter belum ter-install, file akan tercetak ke printer yang tersedia") 
ENDTRY 

*\ Print to PDF >> FOXER, DISINILAH DIALOGBOX TSB NONGOL  :cry: 
TRY 
	loWord.ActiveDocument.PrintOut(0,0,3,"dd","1","1") &&(3)page Ranges from 1 to 1 
CATCH 
   MESSAGEBOX("Acrobat PDFWriter belum ter-install, file akan tercetak ke printer yang tersedia") 
ENDTRY 

*\ Quiting Application 
loWord.ActiveDocument.CLOSE(.F.) &&& Close without Saving 
loWord.APPLICATION.QUIT 

STORE .NULL. TO loWord,loDoc 
ENDPROC