PDF

[jorge.posadas]

Grupo
¿Alguno de ustedes tiene un ejemplo de cómo imprimir en un PDF, pero que pueda imprimir acentos y letras en español como ñÑ ?
pregunto esto porque a pesar de que genero impresiones y "supuestamente" se puedan grabar en PDF, pereo cuando abro el recién pdf creado lo visualizo MUY grande y cuando lo quiero imprimi me lo imprime en tamaño grande es por eso que quiero ver si usando el HBPRINTPDF puedo solucionar mi problema

De antemano agradezco la ayuda

[martingz]

Jorge te envio el codigo que uso para imprimir un pdf

SELECT HPDFDOC archivopdf TO lSuccess papersize HPDF_PAPER_LEGAL ORIENTATION HPDF_ORIENT_PORTRAIT
SET HPDFDOC COMPRESS ALL
SET HPDFDOC ENCODING TO "CP1252"
if lSuccess
START HPDFDOC
START HPDFPAGE
SET HPDFDOC PAGEOUTLINE TITLE "Contrato"
lin:=33
incre:=3
@ 1,05 HPDFPRINT IMAGE "F:\SCA\LNCDLL\comapa.png" width 45 height 25
@ 1,180 HPDFPRINT IMAGE "F:\SCA\LNCDLL\Escudoa.png" width 25 height 25
@ 7,107 HPDFPRINT "COMISION MUNICIPAL DE AGUA POTABLE Y ALCANTARILLADO" font "Times-Bold" size 10 center
@ 11,107 HPDFPRINT "DEL MUNICIPIO DE NUEVO LAREDO, TAMAULIPAS" font "Times-Bold" size 10 center
@ lin,10 HPDFPRINT 'CONTRATO NUMERO : ' + strzero(altacont.text_1.value,8) font "Times-Bold" size 10
lin:=40
@ lin,10 HPDFPRINT 'Contrato que celebran por una parte la Comision Municipal de Agua Potable y Alcantarillado de Nuevo Laredo, Tamaulipas representada' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'por su Gerente General, _____________________________________________ quien en lo sucesivo se denominara LA COMISION, y por la otra' font "Times-Bold" size 8
*@ lin,10 HPDFPRINT 'por el Encargado del Despacho, __________________________________________ quien en lo sucesivo se denominara LA COMISION, y por la otra' font "Times-Bold" size 8
@ lin,48 HPDFPRINT mgerente font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'el sr(a). ___________________________________________________ a quien en lo sucesivo se le denominara EL USUARIO; y cuyo objeto sera la' font "Times-Bold" size 8
@ lin,22 HPDFPRINT left(altacont.text_6.value,40) font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'prestación del servicio de _________________________ uso especifico ____________________ y diámetro _________, de acuerdo a las siguientes:' font "Times-Bold" size 8
@ lin,42 HPDFPRINT left(tipo_con->nombre,15) font "Times-Bold" size 8
@ lin,96 HPDFPRINT left(usuarios->des_usu,15) font "Times-Bold" size 8
@ lin,140 HPDFPRINT left(tomas->des_toma,6) font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'C L A U S U L A S' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'PRIMERA.- El USUARIO solicita el servicio de agua potable y alcantarillado sanitario para el predio que se encuentra ubicado en la calle' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT'____________________________________________, de la colonia ________________________________, La toma domiciliaria y la descarga sanitaria' font "Times-Bold" size 8
@ lin,10 HPDFPRINT alltrim(left(altacont.text_7.value,35)) font "Times-Bold" size 8
@ lin,90 HPDFPRINT alltrim(altacont.text_9.value) font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'es para uso exclusivo del predio antes referido, por lo tanto quedan prohibidas las conexiones internas entre otros predios, el desacato a lo' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'señalado anteriormente es motivo de multas o baja definitiva del presente contrato.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'SEGUNDA.- El USUARIO se obliga a pagar los gastos de instalación del servicio (líneas) y accesorios (tubería) asi como las que se originen por' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'reparaciones derivadas de su uso.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'TERCERA.- El USUARIO pagara a LA COMISION por concepto de prestación del servicio solicitado en el presente contrato la cantidad de ' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT transform(altacont.text_21.value,'999,999.99') + ' CON LETRA: (' + alltrim(letras(altacont.text_21.value)) + ')' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'CUARTA.- En el supuesto que se autorice a EL USUARIO pagar en parcialidades la cantidad señalada la clausula anterior, este suscribirá un pagare' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'a favor de LA COMISION en el que se señala el saldo pendiente, y el plazo para finquítarlo y en caso de incumplimiento EL USUARIO autoriza a' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'LA COMISION a suspender el servicio de agua potable y drenaje.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'QUINTA.- LA COMISION proporcionara el servicio contratado, instalando un aparato medidor de volúmenes de agua y una llave reguladora del' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'servicio y esta infraestructura deberá estar ubicada a la entrada del predio, con libre acceso para el personal autorizado por LA COMISION.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'Los medidores son propiedad de LA COMISION, solamente el personal autorizado por esta podrá instalarlos, revisarlos, cambiarlos' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'y verificarlos, la violación señalada anteriormente, será sancionado conforme a lo que establecen las disposiciones legales aplicables.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'SEXTA.- El USUARIO pagara por el uso y goce del servicio conforme a los precios y tarifas en vigor, dentro de los usos específicos establecidos; las' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'tarifas del servicio podrán ser revisadas y modificadas cuando lo estime LA COMISION.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'SEPTIMA.- La falta u omisión de la entrega de recibo de cobro del servicio por parte de LA COMISION, no exime a El USUARIO su obligación' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'de cubrir el pago correspondiente puntualmente.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'OCTAVA.- EL USUARIO que no cumpla oportunamente con el pago de los servicios contratados, faculta a LA COMISION para suspender el' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'servicio al día siguiente de la fecha de su vencimiento y el servicio será reinstalado hasta que el usuario regularice su pago, previo el pago que fije' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'LA COMISION por concepto de reconexión y en caso de que el usuario no cubra el adeudo dos meses después de la fecha de su vencimiento se dara' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'por cancelado el presente contrato.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'NOVENA.- EL USUARIO se obliga a permitir el acceso al predio servido, al personal autorizado por LA COMISION para efectuar lecturas, repara-' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'ciones, inspecciones, suspensiones y las acciones que sean necesarias para el servicio en mención.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'DECIMA.- Ambas partes acuerdan que en caso de requerirse alguna reparación en la línea contratada, sera responsabilidad de LA COMISION única y' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'exclusivamente de la toma domiciliaria hacia la línea general y al interior de esta será responsabilidad de EL USUARIO.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'DECIMO PRIMERA.- LA COMISION podrá suspender los servicios temporalmente por causa de fuerza mayor o necesidades de trabajo, por lo que' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'EL USUARIO no se reserva ninguna acción en contra de la misma.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'DECIMO SEGUNDA.- Solo LA COMISION tendrá atribuciones para modificar la condiciones hidráulicas de la red de la distribución en función de' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'la capacidad de sus instalaciones y de la cuantía integral de la demanda del servicio y de regular los caudales de acuerdo a la fluctación de la relación' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'necesidad-capacidad. Debiendo EL USUARIO respetar desde ahora y en lo futuro las disposiciones que para tales fines dicte LA COMISION.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'DECIMO TERCERA.- LA COMISION tendrá derecho, sin restricción alguna por parte de EL USUARIO para instalar, extender, componer, cambiar' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'o quitar la línea, equipo de medición y demás materiales necesarios para el servicio objeto de este contrato y cobrar los excedentes a los nueve metros' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'promedio de tubería de cobre convenidos, asi como a seis metros de tubo de concreto lineales para el drenaje y este ultimo llegara hasta el registro' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'que EL USUARIO tendrá en la banqueta.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'DECIMO CUARTA.- EL USUARIO declara expresamente que se somete en todo lo previsto de este contrato, a las leyes y reglamentos' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'en la materia que rigen a LA COMISION.' font "Times-Bold" size 8
lin:=lin + (incre * 2)
if altacont.check_1.value
@ lin,9 HPDFPRINT RECTANGLE TO lin + (incre * 3) + 2,195
@ lin,10 HPDFPRINT 'El contrato se realizó con carácter de posesionario por no cumplir con la ley, sin embargo, los artículos 1, 4, párrafo sexto; 25, párrafo quinto; 27,' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'párrafo sexto y 28 párrafo cuarto, de la constitución Polític de los Estados Unidos Mexicanos, así como el Pacto Internacional de Derechos Económicos,' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'Sociales y Culturales y la observación general número quince del mismo comité, protegen el acceso al derecho humano de agua.' font "Times-Bold" size 8
endif
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'LEIDO que fue el presente contrato, por los que intervinieron y percatados de el valor y la fuerza legal de todas y cada una de las' font "Times-Bold" size 8
lin:=lin + incre
@ lin,10 HPDFPRINT 'clausulas, lo firman en Nuevo Laredo, Tam. a los : ' + str(day(altacont.datepicker_1.value),2) + ' dias del mes de ' + ames[month(altacont.datepicker_1.value)] + ' de ' + str(year(altacont.datepicker_1.value),4) font "Times-Bold" size 8
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'LIQUIDACION:' font "Times-Bold" size 8
@ lin,107 HPDFPRINT 'FORMA DE PAGO:' font "Times-Bold" size 8
lin:=lin + (incre * 2)
a1:=a2:=a3:=a4:=iva:=0
A1:=altacont.text_16.value
A2:=altacont.text_17.value
A3:=altacont.text_18.value
A4:=altacont.text_19.value
SUM1:=A1 + A2 + A3 + A4
iva:=0
@ lin,10 HPDFPRINT 'CONTRATO' font "Times-Bold" size 8
@ lin,77 HPDFPRINT '$' font "Times-Bold" size 8
@ lin,80 HPDFPRINT TRANSFORM(altacont.text_16.value + altacont.text_17.value + altacont.text_18.value + altacont.text_19.value ,'999,999.99') font "Times-Bold" size 8
@ lin,107 HPDFPRINT 'CONTADO ' font "Times-Bold" size 8
@ lin,157 HPDFPRINT TRANSFORM(altacont.text_22.value,'999,999.99') font "Times-Bold" size 8 right
lin:=lin + incre
@ lin,107 HPDFPRINT 'DOCUMENTOS' font "Times-Bold" size 8
@ lin,157 HPDFPRINT TRANSFORM(altacont.text_23.value,'999,999.99') font "Times-Bold" size 8 right
lin:=lin + incre
@ lin,107 HPDFPRINT 'TOTAL $' font "Times-Bold" size 8
@ lin,157 HPDFPRINT TRANSFORM(altacont.text_24.value,'999,999.99') font "Times-Bold" size 8 right
lin:=lin + (incre * 5)
*@ lin - 10,150 HPDFPRINT IMAGE "usuario.jpg" width 35 height 20 TYPE JPG
@ lin,48 HPDFPRINT alltrim(mgerente) font "Times-Bold" size 8 center
@ lin,167 HPDFPRINT alltrim(altacont.text_6.value) font "Times-Bold" size 8 center
lin:=lin + incre
@ lin,10 HPDFPRINT 'COMISION MUNICIPAL DE AGUA POTABLE Y ALCANTARILLADO' font "Times-Bold" size 8
@ lin,167 HPDFPRINT 'USUARIO Y/O REPRESENTANTE LEGAL' font "Times-Bold" size 8 center
lin:=lin + (incre * 9)
@ lin,50 HPDFPRINT alltrim(mcomercial) font "Times-Bold" size 8 center
@ lin,167 HPDFPRINT alltrim(mcontratos) font "Times-Bold" size 8 center
lin:=lin + incre
*@ lin,50 HPDFPRINT 'GERENTE COMERCIAL ( FIRMA Y SELLO ) ' font "Times-Bold" size 8 center
@ lin,50 HPDFPRINT 'COORD. ADM. AREA COMERCIAL ( FIRMA Y SELLO ) ' font "Times-Bold" size 8 center
@ lin,167 HPDFPRINT 'JEFE DEL DEPTO. DE CONTRATOS' font "Times-Bold" size 8 center
lin:=lin + incre
@ lin,50 HPDFPRINT 'AUTORIZACIÓN' font "Times-Bold" size 8 center
@ lin,167 HPDFPRINT 'REVISO' font "Times-Bold" size 8 center
lin:=lin + (incre * 5)
@ lin,10 HPDFPRINT tabcon[1] font "Times-Bold" size 10
@ lin,167 HPDFPRINT '_____________________________' font "Times-Bold" size 8 center
lin:=lin + (incre * 2)
@ lin,10 HPDFPRINT 'VALIDO UNICAMENTE CON SELLO Y FIRMA DE LA GERENCIA COMERCIAL' font "Times-Bold" size 8
@ lin,167 HPDFPRINT 'VO BO ELABORO' font "Times-Bold" size 8 center
END HPDFPAGE
end HPDFDOC
SET CODEPAGE TO UNICODE

[jorge.posadas]

Martinez

Gracias por el ejemplo y lo integre a mi app , solo como ejemplo para ver CÓMO salía, y si me gusto como salió sin embargo los acentos y letras Ññ no se imprimieron bien de hecho en tu texto al final donde dice:

OORD. ADM. AREA COMERCIAL ( FIRMA Y SELLO )
AUTORIZACIÓN

Cómo notarás no se imprime la letra O acentuada.