FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Imprimir pdf sin intervenci贸n del usuario
miarcod
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Imprimir pdf sin intervenci贸n del usuario
Posted: Thu Jul 11, 2019 06:24 PM

Alguna idea para imprimir un fichero PDF que genero desde haru sin que el usuario tenga que intervenir y si es posible sin que se abra acrobat o similar
Gracias

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Thu Jul 11, 2019 07:00 PM
SUMATRAPDF, 茅s mui bueno. Mira aqui:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=36406&p=217357&hilit=sumatrapdf#p217357

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22185&p=118131&hilit=imprimir+archivo+pdf#p118131

Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Thu Jul 11, 2019 07:21 PM
miarcod wrote:Alguna idea para imprimir un fichero PDF que genero desde haru sin que el usuario tenga que intervenir y si es posible sin que se abra acrobat o similar
Gracias


https://docs.microsoft.com/en-us/window ... llexecutea

ShellExecute(,"Print","File.pdf",,,3)
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Fri Jul 12, 2019 01:12 PM
Code (fw): Select all Collapse
#include "FiveWin.ch"

static oWnd

FUNCTION Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Imprimir PDF"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION( IMPRIMIR_PDF() ) TOOLTIP "Imprimir PDF" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT    ;
      ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

   SET MESSAGE OF oWnd TO "Imprimir PDF" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION IMPRIMIR_PDF()

   // ASI, LLAMA EL ADOBE... 3
   ShellExecute(, "Print", "PROP15.PDF",,, 3 )  // Navarro

   // Con el SUMATRAPDF, no llama el adobe, es directo en la impresora.
   // Invisible para el usuario.

RETURN NIL

// FIN


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Fri Jul 12, 2019 01:29 PM
Code (fw): Select all Collapse
   LOCAL cArchivoPDF := "PROP15.PDF"

   // ASI, TAMBIEN LLAMA EL ADOBE.
   ShellExecute(GetActiveWindow(),"Print",'"'+cArchivoPDF+'"', 3 )


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
miarcod
Posts: 203
Joined: Tue Oct 11, 2005 02:17 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Fri Jul 12, 2019 03:09 PM

Gracias
voy a probar

leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Fri Jul 19, 2019 08:49 PM
Buenas tardes para todos

Estoy tratando de compilar harupdf,

Inclui todo el c贸digo fuente, pero me salen errores al momento de compilar.
Code (fw): Select all Collapse
3=C:\BASCULADO\PRG\HARUFONTS.PRG
4=C:\BASCULADO\PRG\HARUPRINTMGR.PRG
5=C:\BASCULADO\PRG\HARUUTILS.PRG
6=C:\BASCULADO\PRG\THARUPDF.PRG
7=C:\BASCULADO\PRG\THARUPDFBASE.PRG


Code (fw): Select all Collapse
Turbo Incremental Link 6.80 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_HPDF_SETCOMPRESSIONMODE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETHEIGHT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETWIDTH' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_NEW' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETSIZE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_ADDPAGE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_BEGINTEXT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETCURRENTFONTSIZE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETFONTANDSIZE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETRGBFILL' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETRGBFILL' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_TEXTOUT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_TEXTWIDTH' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_ENDTEXT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_WAPI_OUTPUTDEBUGSTRING' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_LOADTTFONTFROMFILE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_GETFONT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HB_HHASKEY' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_LOADPNGIMAGEFROMFILE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_LOADJPEGIMAGEFROMFILE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_DRAWIMAGE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_MOVETO' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_LINETO' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_STROKE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_SETPASSWORD' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_SETPERMISSION' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_SAVETOFILE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_FREE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GSAVE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_RECTANGLE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_GRESTORE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETDASH' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_CURVETO' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_FILLSTROKE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETLINEWIDTH' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETRGBSTROKE' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETTEXTMATRIX' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unresolved external '_HB_FUN_HPDF_PAGE_SHOWTEXT' referenced from C:\FIVEDIT\THARUPDFBASE.OBJ
Error: Unable to perform link
Link Error


Esta clase funciona con xharbour?

De antemano gracielas
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Fri Jul 19, 2019 09:00 PM

Creo que te falta a帽adir la libreria LIBHPDF.LIB de harbour
No lo s茅 si funciona con xHarbour

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Mon Jul 22, 2019 12:08 PM
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37397&p=223830&hilit=harupdf#p223830
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
jacgsoft
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
Re: Imprimir pdf sin intervenci贸n del usuario
Posted: Wed Jul 31, 2019 09:53 PM

Con Harbour, tienes que enlazar las librerias hbhpdf.lib y libhpdf.lib

include "FiveWin.ch"

include "harupdf.ch"

Function Main()
Local oPdf,Page,oImage,oFont,Font1,Font2,Font3

oPdf:=HPDF_New()

HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL )

**HPDF_SetPassword( oPdf, 'jaime', 'alberto' )

page:=HPDF_AddPage(oPdf)

HPDF_Page_SetSize(page, 3, 0) //** 3 = A4

oImage:=HPDF_LoadJpegImageFromFile (oPdf,'png\Qr_demo.jpg')
HPDF_Page_DrawImage(page, oImage, 100, 700, 100, 100)

HPDF_Page_SetRGBFill(page, 0.80, 0.80, 0.80) // Para rellenar
HPDF_Page_SetLineWidth(page, 0.5 ) // ** Grosor
HPDF_Page_SetRGBStroke(page,0.2,0.6,1.0) // ** Color
HPDF_Page_Rectangle(page, 20,760,560,70)
HPDF_Page_Stroke (page) //* Muestra el cuadro

HPDF_Page_BeginText (page)
Font1:=HPDF_LoadTTFontFromFile(oPdf,'C:\Windows\Fonts\Verdana.ttf',HPDF_TRUE)
Font2:=HPDF_LoadTTFontFromFile(oPdf,'C:\Windows\Fonts\Lucon.ttf',HPDF_TRUE)

oFont:=HPDF_GetFont(oPdf, Font1, "WinAnsiEncoding" )
HPDF_Page_SetFontAndSize(page, oFont, 12)
HPDF_Page_TextOut(page,100,640,"Jaime Coronado 1")

oFont:=HPDF_GetFont(oPdf, Font2, "WinAnsiEncoding" )
HPDF_Page_SetFontAndSize(page, oFont, 9)
HPDF_Page_TextOut(page, 100, 700, "Jaime Coronado 2")
HPDF_Page_TextOut(page, 100, 670, "Programador")
HPDF_Page_EndText(page)

HPDF_SaveToFile( oPdf, 'Prueba.pdf' )

HPDF_Free( oPdf )

Return(nil)

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions