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,
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Imprimir PDF en una impresora concreta
// 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 / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
You can use Ghostscript:
#define GSCMD "c:\programmi\pdfcreator\ghostscript\bin\gswin32c.exe"
WAITRUN( GSCMD + [ -dNoCancel -dBATCH -dNOPAUSE -sDEVICE=mswinpr2 -o"%printer%] + cPrinter + [" "] + cPdf + ["], 0 )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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341