FiveTech Software tech support forums

Code: Select all | Expand

// C:\FWH\SAMPLES\IMPPADRA.PRG

#include "FiveWin.ch"

FUNCTION Imp_Impresora_concreta()

   LOCAL cImpOriginal, cNovaImp, oPrn
   

   // Obtém a impressora padrão atual
   cImpOriginal := PrnGetName()
   

   // Nome exato da impressora no Windows
   cNovaImp := "Microsoft Print to PDF"
   

   // Tenta definir a nova impressora (função interna do FiveWin/Windows)
   SetPrintDefault( cNovaImp )
   SysRefresh()
   

   // Imprime
   PRINT oPrn NAME "Relatorio"

  IF Empty( oPrn:hDC )
     RETURN NIL // Usuário cancelou
  ENDIF
  
  // ... seu código de impressão ...
  oPrn:StartPage()
  oPrn:Say( 10, 10, "Teste de Impressao" )
  oPrn:EndPage()

   ENDPRINT
   

   // Restaura a impressora original
   SetPrintDefault( cImpOriginal )

   SysRefresh()

RETURN NIL

/*
O,

PRINT oPrn NAME "Relatorio" FROM USER
   // ... código de impressão ...
ENDPRINT
*/

// FIN / END

Code: Select all | Expand

#define GSCMD "c:\programmi\pdfcreator\ghostscript\bin\gswin32c.exe"

WAITRUN( GSCMD + [ -dNoCancel -dBATCH -dNOPAUSE -sDEVICE=mswinpr2 -o"%printer%] + cPrinter + [" "] + cPdf + ["], 0 )