Imprimir PDF en una impresora concreta

[FiveWiDi]

Hola a todos,

Tengo la necesidad de imprimir un pdf en una impresora concreta que no es la predeterminada; ¿Cómo lo harían Ustedes?

Gracias,

[karinha]

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

Regards, saludos.

[Enrico Maria Giordano]

You can use Ghostscript:

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 )

[karinha]

Si el .PDF ya existe, úselo mediante código:

https://www.sumatrapdfreader.org/free-pdf-reader

Muy fácil de usar a través de FiveWin. Busca SUMATRAPDF en el foro.

Regards, saludos.