Print rectangle Border

[Pepe Ruano]

Hola a todos, me gustaría poder imprimir un rectángulo redondeado, pero sin pixelizar, ya que lo que hace no me gusta como queda, quisiera que fuése uniforme y sin borde alguno, o sea totalmente limpio. Aquí pongo una imágen de como lo hace ahora y no me gusta:

English:
Hello everyone, I would like to be able to print a rounded rectangle, but without pixelizing, since what I do does not like how it looks, I would like it to be uniform and without any border, that is, totally clean. Here I put an image of how he does it now and I don't like it:
Code:

Code: Select all

#include <hmg.ch>
*------------------------------------------------------------------------------*
///******************   PRUEBA DE IMPRESION     *********************
*------------------------------------------------------------------------------*
Func Main( )

Local  nL := 120 , cPrinter , cTitu := "Prueba" , cNif := "74.123.123-Q" , cDom := "San Adrián, nº 10", cPob := "Madrid" ,;
	   aAzul := {32,77,244} , aMarino := {13,29,138} , aRojo := {204,51,0}	, aBlanco := {255,255,255}

cPrinter := GetPrinter()	
	   
If Empty (cPrinter)
		Return
EndIf
 
	SELECT PRINTER cPrinter ;
		ORIENTATION	PRINTER_ORIENT_PORTRAIT  ;
		PAPERSIZE	PRINTER_PAPER_LETTER ;
		QUALITY		PRINTER_RES_HIGH ;
		PREVIEW 

	
	START PRINTDOC
	START PRINTPAGE
	
		@ 20,20 PRINT RECTANGLE ;
	      	 TO 30,190 ;
			 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED


		@ 23,100 PRINT ALLTRIM(cTitu)   ;
			 FONT "Arial" ;
			 SIZE 12 ;
		     BOLD	   COLOR aBlanco CENTER					
	
	@40,20  PRINT ALLTRIM(cDom) FONT "Arial"  SIZE 9
	@33,190  PRINT "N.I.F. : " + ALLTRIM(cNif) FONT "Arial" RIGHT SIZE 9
	@47,20  PRINT ALLTRIM(cPob) FONT "Arial"  SIZE 9
	
	@ 100,20 PRINT RECTANGLE ;
	    	 TO 255,190 ;
			 PENWIDTH 0.1 COLOR aMarino
	@105,50 PRINT "Concepto" FONT "Arial"  SIZE 9  COLOR aMarino
	@105,100 PRINT "Cant." FONT "Arial"  SIZE 9 COLOR aMarino
	@105,120 PRINT "Precio" FONT "Arial"  SIZE 9 COLOR aMarino
	@105,142 PRINT "Dct %" FONT "Arial"  SIZE 9 COLOR aMarino
	@105,165 PRINT "Importe" FONT "Arial"  SIZE 9 COLOR aMarino
	
	@113,20 PRINT LINE TO 113,190 PENWIDTH 0.1 COLOR aMarino
			 
	@ 222,140 PRINT RECTANGLE ;
	    	 TO 255,190  PENWIDTH 0.1 COLOR aMarino 


	END PRINTPAGE
	END PRINTDOC

Return	

Si algún compañero puede decirme como hacerlo, se lo agradeceré.
Cuidaros todos mucho en esta desagradable situación.
Un abrazo 'virtual'

Mustafa, Salinetas24, Que tal os va por ahí. Aquí en Almansa hoy deberían haber empezado nuestras Fiestas Patronales y Moros y Cristianos, pero desgraciadamente nada de nada, a salir al balcón y poco más.

[serge_girard]

Maybe use a JPG?

[mustafa]

Hola amigo Pepe, veo que estas Bien !!!
has probado con Curve 5 y sustituyo PRINT con HPDFPRINT ?

Code: Select all

cNombre := MiPrint.Pdf" 

    SELECT HPDFDOC cNombre ORIENTATION HPDF_ORIENT_PORTRAIT PAPERSIZE HPDF_PAPER_A4    

    SET HPDFDOC ENCODING TO "WinAnsiEncoding"

   START HPDFDOC           
         START HPDFPAGE
	    
        @ 20,20 HPDFPRINT  RECTANGLE TO 30,190 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED CURVE 5   

       END HPDFPAGE  
    END HPDFDOC
    

Saludos Virtuales
Mustafa

[mustafa]

Pepe el Sample Completo

Code: Select all

 
#include <hmg.ch>
*------------------------------------------------------------------------------*
///******************   PRUEBA DE IMPRESION     *********************
*------------------------------------------------------------------------------*
Func Main( )

   REQUEST HB_CODEPAGE_ESWIN     
   HB_SETCODEPAGE("ESWIN")    
 
   REQUEST HB_LANG_ES   
   HB_LANGSELECT("ES")  
*----------------------------------* 
  SET LANGUAGE TO SPANISH 
  SET CODEPAGE TO SPANISH 

  PRIVATE  nL := 120 , cPrinter , cTitu := "Prueba" , cNif := "74.123.123-Q" , cDom := "San Adrián, nº 10", cPob := "Madrid" ,;
	   aAzul := {32,77,244} , aMarino := {13,29,138} , aRojo := {204,51,0}	, aBlanco := {255,255,255}

 PRIVATE  cNombre :="Sample.pdf"

   DEFINE WINDOW Principal AT 0,0  WIDTH 400  HEIGHT 300  TITLE '' MAIN;
              NOSIZE NOMAXIMIZE ICON "" ;
              ON INIT PrintDoc()  

              ON KEY ESCAPE ACTION Principal.Release   
  END WINDOW
	
CENTER WINDOW Principal
ACTIVATE WINDOW Principal
	
Return

*-------------------------------------------------------------------------------*
*----------------------------------------*
FUNCTION PrintDoc()  
*----------------------------------------*
    SELECT HPDFDOC cNombre ORIENTATION HPDF_ORIENT_PORTRAIT PAPERSIZE HPDF_PAPER_A4     // LANDSCAPE  Vertical

*-----------------------------  Código Caracteres ANSI (Latinos) -------------------------------*
    SET HPDFDOC ENCODING TO "WinAnsiEncoding"
*   SET HPDFDOC ENCODING TO "CP1252"  

*-----------------------------------------------------------------------------------------------*

   START HPDFDOC
              
            START HPDFPAGE
		
    
*-------------------------------------- Cuadro General ----------------------------------------*
     @ 005,005  HPDFPRINT RECTANGLE TO 292, 206 PENWIDTH 1 ROUNDED CURVE 1     // Opcional ?
     @ 007,007  HPDFPRINT RECTANGLE TO 290, 204            ROUNDED CURVE 1           // Opcional ? 
*-----------------------------------------------------------------------------------------------*
*-------------------------------------- Recuadro Empresa ---------------------------------------*

     @ 20,20 HPDFPRINT  RECTANGLE TO 30,190 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED CURVE 5   

		@ 26,100 HPDFPRINT ALLTRIM(cTitu)   ;
			 FONT "Arial" ;
			 SIZE 12 ;
		     BOLD	   COLOR aBlanco CENTER					
	
	@42,020  HPDFPRINT ALLTRIM(cDom) FONT "Arial"  SIZE 9
	@35,190 HPDFPRINT  "N.I.F. : " + ALLTRIM(cNif) FONT "Arial" RIGHT SIZE 9
	@49,020  HPDFPRINT  ALLTRIM(cPob) FONT "Arial"  SIZE 9
	
	@ 100,20 HPDFPRINT RECTANGLE ;
	    	 TO 255,190 ;
			 PENWIDTH 0.1 COLOR aMarino
	@107,050 HPDFPRINT"Concepto" FONT "Arial"  SIZE 9  COLOR aMarino
	@107,100 HPDFPRINT"Cant." FONT "Arial"  SIZE 9 COLOR aMarino
	@107,120 HPDFPRINT "Precio" FONT "Arial"  SIZE 9 COLOR aMarino
	@107,142 HPDFPRINT "Dct %" FONT "Arial"  SIZE 9 COLOR aMarino
	@107,165 HPDFPRINT "Importe" FONT "Arial"  SIZE 9 COLOR aMarino
	
	@113,20 HPDFPRINT LINE TO 113,190 PENWIDTH 0.1 COLOR aMarino
			 
	@ 222,140 HPDFPRINT  RECTANGLE ;
	    	 TO 255,190  PENWIDTH 0.1 COLOR aMarino 

       END HPDFPAGE  

    END HPDFDOC
    
 Execute File cNombre

 Principal.Release

Return 

Saludos
Mustafa

[Pepe Ruano]

Hola amigo Pepe, veo que estas Bien !!!
has probado con Curve 5 y sustituyo PRINT con HPDFPRINT ?

Code: Select all

cNombre := MiPrint.Pdf" 

    SELECT HPDFDOC cNombre ORIENTATION HPDF_ORIENT_PORTRAIT PAPERSIZE HPDF_PAPER_A4    

    SET HPDFDOC ENCODING TO "WinAnsiEncoding"

   START HPDFDOC           
         START HPDFPAGE
	    
        @ 20,20 HPDFPRINT  RECTANGLE TO 30,190 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED CURVE 5   

       END HPDFPAGE  
    END HPDFDOC
    

Saludos Virtuales
Mustafa

Gracias Mustafa, veo que tú también estás bien de lo cual me alegro mucho.

No logro entender tu código y lo he probado y no me funciona, se supone que tendría que tener un archivo previo Miprint.pdf, pero no quiero imprimir un PDF, sólo quiero que imprima el código que tengo puesto en el ejemplo, que lleva más variables y usa campos de bd. Si eres tan amable mira mi código a ver si puedes cambiar algo para que sin ningún pdf se imprima lo que hay en el mismo. O un pequeño ejemplo simple que haga el preview pero sin ninguna llamada a un pdf.

Un abrazo amigo.

[Pepe Ruano]

Maybe use a JPG?

Thanks serge, I will try it maybe it is a solution.

[mustafa]

Hola Pepe
Luego te mande el Prg completo
No se imprime Sample.pdf ?
solo he sustituido si te fijas PRINT por HPDFPRINT
y CURVE 5 <---------- @ 20,20 HPDFPRINT RECTANGLE TO 30,190 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED CURVE 5

Temando Código Prg y Sample.Pdf

[Pepe Ruano]

Hola Pepe
Luego te mande el Prg completo
No se imprime Sample.pdf ?
solo he sustituido si te fijas PRINT por HPDFPRINT
y CURVE 5 <---------- @ 20,20 HPDFPRINT RECTANGLE TO 30,190 PENWIDTH 0.1 COLOR aMarino FILLED ROUNDED CURVE 5

Temando Código Prg y Sample.Pdf

¡Vaya Mustafa! eres más rápido que el viento, muchas gracias.
Así sale perfecto el rectángulo, pero no quiero generar un PDF, como te he comentado quiero que salga la opción normal del Preview, seleccione la impresora y si entonces se quiere que lo imprima, sino no hay que imprimir nada.
A ver si se te ocurre algo.

[mustafa]

Lo del Fichero sample.pdf es para ver como queda el Sample
creo que podria ser :
Una Pregunta

IF MsgYesNo('Desea Imprimirr ? ','Crear Impresión' )
......etc etc

[salamandra]

Hola Pepe,

Maybe use a JPG?

+1

Spanish
A menos que el tamaño del rectangulo sea dinamico, creo que la mejor solucion (y mas rapida) es la que propone usar un archivo JPG.



English
Unless the size of the rectangle is dynamic, I believe that the best solution (and quickest) is the one that proposes to use a JPG file.





[]´s Salamandra - Brazil