Ruben, prueba este ejemplo y comente para Master Navarro, pls.
// C:\FWH\SAMPLES\RUBEN04.PRG
#include "FiveWin.ch"
#Define PAD_LEFT 0
#Define PAD_RIGHT 1
#Define PAD_CENTER 2
MEMVAR WNOMBREARQPDF
FUNCTION Main()
LOCAL n, oWin, oFont, oDlg, oBtn, DeDondeRuben
IF FILE( "MUCHAS.PDF" )
DELETEFILE( "MUCHAS.PDF" )
ENDIF
IF FILE( "POCAS.PDF" )
DELETEFILE( "POCAS.PDF" )
ENDIF
IF FILE( "NADA.PDF" )
DELETEFILE( "NADA.PDF" )
ENDIF
IF FILE( "VARIAS.PDF" )
DELETEFILE( "VARIAS.PDF" )
ENDIF
DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14 BOLD
DEFINE DIALOG oDlg SIZE 500, 400 FONT oFont
oDlg:lHelpIcon := .F.
@ 2, 10 BUTTON oBtn PROMPT "Directo en la impresora " OF oDlg ;
ACTION Generar_PDF( DeDondeRuben := "DIRECTONAIMP" )
@ 4, 10 BUTTON oBtn PROMPT " Con Preview de FWH " OF oDlg ;
ACTION Generar_PDF( DeDondeRuben := "CONPREVIEWFIVE" )
@ 6, 10 BUTTON oBtn PROMPT " Con Preview en PDF " OF oDlg ;
ACTION Generar_PDF( DeDondeRuben := "CONPREVIEWPDF" )
@ 8, 10 BUTTON oBtn PROMPT " Salida del Sistema " OF oDlg ;
ACTION( oDlg:End() ) CANCEL
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
RETURN NIL
FUNCTION Generar_PDF( DeDondeRuben )
LOCAL oPrn, oFont, nPagina
LOCAL cText := "Este é um texto de teste para impressão Para Ruben"
nPagina := 1
IF DeDondeRuben = "DIRECTONAIMP" // DIRECTO / IMPRESSORA
PRINT oPrn NAME "RUBEN"
ELSEIF DeDondeRuben = "CONPREVIEWFIVE" // PREVIEW / FWH
PRINT oPrn NAME "RUBEN" PREVIEW MODAL
ELSEIF DeDondeRuben = "CONPREVIEWPDF" // GENERAR ARCHIVO PDF.
PRINT oPrn FILE "RUBEN.pdf" // en silencio sin preview
ENDIF
DEFINE FONT oFont NAME "COURIER NEW" SIZE 0,-18 OF oPrn
oPrn:lPrvModal := .T.
oPrn:SetPage( 1 )
oPrn:SetPortrait()
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
PAGE // 10
oPrn:cmSay( 1, 18, ;
OemToAnsi( "P gina: " + ALLTRIM( STRZERO( nPagina, 2 ) ) ), ;
oFont,, CLR_BLACK,, PAD_CENTER )
oPrn:CmSay ( 05, 1, cText, oFont )
++nPagina
ENDPAGE
ENDPRINT
RELEASE FONT oFont
IF DeDondeRuben = "CONPREVIEWPDF"
// FWSavePreviewToPDF( oPrn, "RUBEN.PDF", .F. )
// Para visualizar el PDF. HTMLPDF.PRG
// HTMLVIEW( "RUBEN.PDF" )
WNOMBREARQPDF := cShortName( "RUBEN.pdf" )
// ShellExecute( 0, "Print", WNOMBREARQPDF,,, 3 ) // Imprime
ShellExecute( 0, "Open", WNOMBREARQPDF,,, 3 ) // Abrir ADOBE
ENDIF
RETURN NIL
/*
* SPN.PRG
*
* cShortName() - FilePath Long to Short (GetShortPathNameA())
*
* Soporte a Funciones del Api de Windows
*
* Andrade A. Daniel - 2002
* Rosario, Argentina
*
* Libre Distribución
*/
/*
* cShortName()
*/
FUNCTION cShortName( cLong )
LOCAL cShort := Space( 164 ) + Chr( 0 )
LOCAL nBuffer := 164
LOCAL nLen
nLen := GetSPName( cLong, @cShort, nBuffer )
cShort := Left( cShort, nLen )
RETURN( cShort )
DLL32 STATIC FUNCTION GetSPName( lpszLongPath AS STRING, lpszShortPath AS STRING, lBuffer AS LONG ) ;
AS LONG PASCAL FROM "GetShortPathNameA" LIB "kernel32"
// FIN / END kapiabafwh@gmail.com
Regards, saludos.
