Printing PDFs Using VFP

Program dibawah ini berguna untuk mencetak file PDF di program yang di created dengan VFP.

 

Buat program (prosedur.prg), dengan script :

 

PROCEDURE ShellExec (exeName, exeParms, exePath)

LOCAL nStat, errorDesc

nStat = ShellExecute(0,”print”,exeName,exeParms,exePath,1)

 * If nStat > 32, then it is the Instance Handle

 * To get a Windows Handle see support.microsoft.com/kb/q242308/

 IF  nStat <= 32

     errorDesc = ICASE(nStat=2,”Invalid path or filename”, ;

                     nStat=8,”Insufficient memory”, ;

                     nStat=11,”invalid EXE file”, ;

                     nStat=31,”Invalid action, or no application

 associated with the specified file“, ;

                     “Error description not available”)

     MESSAGEBOX(“Error “+LTRIM(STR(nStat))+” …

 “+errorDesc,16,”Program did

 not start.”,2000)

 Endif

 

 Return

 

Buat form (openpdf.scx), dengan langkah-langkah :

  1. Letakkan script dibawah ini ke form1.load

SET PROCEDURE TO prosedur

  1. Letakkan Command Button di form1 dengan mengubah properties command1.caption=’Print’.
  2. Kemudian klik pada command button atau command1.click, dan tuliskan script dibawah ini :

DECLARE INTEGER ShellExecute IN Shell32.DLL ;

         INTEGER nWinHandle,;

         STRING cOperation,;

         STRING cFileName,;

         STRING cParameters,;

         STRING cDirectory,;

         INTEGER nShowWindow

 

ShellExec(“test.pdf”,””,”c:\temp\”)

RETURN

  1. Sebelum proses untuk mencoba menjalankan program tersebut, copy dulu file test.pdf (dari file pdf yang anda punya) ke direktori c:\temp.
  2. Untuk mencobanya pilih menu form >>> run form.  Klik tombol Print.

Bisa dipastikan sekarang printer anda akan mencetak dokumen test.pdf.

 

Dari milis profox@leafe.com, dengan diedit seperlunya.

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: