Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Aplicaciones/Fragmentos de Código

Enviar Reporte Directamente A La Impresora

Responder al tema

 

jarrypalacios
Citar
Mensajes: 25 Ubicación: Táchira
Sabado, 16 Agosto 2014, 23:52
Objetivo: Enviar Reporte Directamente A La Impresora
Amigos con su apoyo he aprendido mucho de gambas, mientras más estudio más me enamoro de este lenguaje que permite crear versátiles soluciones de escritorio; con su apoyo he logrado generar un reporte en gambas a un pdf; la rutina crea los archivos pero me pregunto si existe opción de enviarla directamente a la impresora sin pre visualizar en pantalla.

captura_de_pantalla_de_2014_08_16_18_09_00

codigo;


Public Sub Button2_Click()
Dim cadena As String
Dim xnom_sex As String
Dim xnom_ec As String
If RadioButton1.Value = True Then
xnom_ec = "Soltero"
Endif
If RadioButton2.Value = True Then
xnom_ec = "Casado"
Endif
If RadioButton3.Value = True Then
xnom_ec = "Divorciado"
Endif
If RadioButton4.Value = True Then
xnom_ec = "Viudo"
Endif
If RadioButton5.Value = True Then
xnom_sex = "Masculino"
Endif
If RadioButton6.Value = True Then
xnom_sex = "Femenino"
Endif
cadena = "<html>"
cadena &= "<head><title>Palacio's Systems</title><meta></head>"
cadena &= "<body><center><h3>"
cadena &= Trim$(FMain.xnom_ente) & "<br>"
cadena &= "Departamento de Informática (Software Libre)<br>"
cadena &= "</h3><table width='90%' border='1'>"
cadena &= "<tr>"
cadena &= "<td colspan='4' align='center'><img></td>"
cadena &= "</tr>"
cadena &= "<tr><td>Cédula: </td><td colspan='3'>" & Trim$(TextBox1.Text) & "</td></tr>"
cadena &= "<tr><td>Nombres y Apellidos: </td><td colspan='3'>" & Trim$(TextBox2.Text) & " " & Trim$(TextBox3.Text) & "</td></tr>"
cadena &= "<tr><td>Tipo de Personal: </td><td colspan='3'>" & Trim$(ComboBox1.Text) & "</td></tr>"
cadena &= "<tr><td>Departamento: </td><td colspan='3'>" & Trim$(ComboBox2.Text) & "</td></tr>"
cadena &= "<tr><td>Nivel Academico: </td><td colspan='3'>" & Trim$(ComboBox3.Text) & "</td></tr>"
cadena &= "<tr><td>Cargo: </td><td colspan='3'>" & Trim$(ComboBox4.Text) & "</td></tr>"
cadena &= "<tr><td>Frecuencia de Pago: </td><td colspan='3'>" & Trim$(ComboBox5.Text) & "</td></tr>"
cadena &= "<tr><td>Estado Empleado: </td><td colspan='3'>" & Trim$(ComboBox6.Text) & "</td></tr>"
cadena &= "<tr><td>Estado Civil: </td><td>" & Trim$(xnom_ec) & "</td><td>Sexo: </td><td>" & Trim$(xnom_sex) & "</td></tr>"
cadena &= "<tr><td>F. Nacimiento: </td><td>" & TextBox4.Value & "</td><td>F. Ingreso: </td><td>" & TextBox5.Value & "</td></tr>"
cadena &= "<tr><td>Hijos: </td><td>" & TextBox6.Value & "</td><td>Antiguedad </td><td>" & TextBox7.Value & "</td></tr>"
cadena &= "<tr><td>Telefono Fijo: </td><td>" & Trim$(TextBox8.Text) & "</td><td>Celular: </td><td>" & Trim$(TextBox9.Text) & "</td></tr>"
cadena &= "<tr><td>Banco: </td><td>" & Trim$(ComboBox7.Text) & "</td><td>Nro. de Cuenta: </td><td>" & Trim$(TextBox11.Text) & "</td></tr>"
cadena &= "<tr><td>Dirección: </td><td colspan='3'>" & Trim$(TextBox10.Text) & "</td></tr>"
cadena &= "<tr><th>Asignaciones</th></tr>"
cadena &= "<tr><td>Sueldo: </td><td align='right'>" & Trim$(TextBox12.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox13.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a1) & " </td><td align='right'>" & Trim$(TextBox14.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox15.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a2) & " </td><td align='right'>" & Trim$(TextBox16.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox17.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a3) & " </td><td align='right'>" & Trim$(TextBox18.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox19.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a4) & " </td><td align='right'>" & Trim$(TextBox20.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox21.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a5) & " </td><td align='right'>" & Trim$(TextBox22.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox23.Text) & "</td></tr>"
cadena &= "<tr><td>" & Trim$(general.xconcepto_a6) & " </td><td align='right'>" & Trim$(TextBox24.Text) & "</td><td>Imptación: </td><td>" & Trim$(TextBox25.Text) & "</td></tr>"
cadena &= "<tr><th>Deducciones</th></tr>"
cadena &= "<tr><td>SSO: </td><td align='right'>" & Trim$(TextBox28.Text) & "</td><td>FEJP: </td><td align='right'>" & Trim$(TextBox29.Text) & "</td></tr>"
cadena &= "<tr><td>FPF: </td><td align='right'>" & Trim$(TextBox30.Text) & "</td><td>FAOV: </td><td align='right'>" & Trim$(TextBox31.Text) & "</td></tr>"
cadena &= "<tr><td>ISLR: </td><td align='right'>" & Trim$(TextBox32.Text) & "</td><td>Judicial: </td><td align='right'>" & Trim$(TextBox33.Text) & "</td></tr>"
cadena &= "<tr><td>Caja de Ahorros: </td><td align='right'>" & Trim$(TextBox34.Text) & "</td><td>Prestamo Caja Ahorros: </td><td align='right'>" & Trim$(TextBox35.Text) & "</td></tr>"
cadena &= "<tr><td>Montepio: </td><td align='right'>" & Trim$(TextBox36.Text) & "</td><td>Sindicato: </td><td align='right'>" & Trim$(TextBox37.Text) & "</td></tr>"
cadena &= "<tr><td>HCM: </td><td align='right'>" & Trim$(TextBox38.Text) & "</td><td>Comercial 1: </td><td align='right'>" & Trim$(TextBox39.Text) & "</td></tr>"
cadena &= "<tr><td>Comercial 2: </td><td align='right'>" & Trim$(TextBox40.Text) & "</td><td>Otras Deducciones: </td><td align='right'>" & Trim$(TextBox41.Text) & "</td></tr>"
cadena &= "</table>"
cadena &= "</center></body></html>"
File.Save(User.Home & "/texo_gambas.html", cadena)
Exec ["wkhtmltopdf", User.Home & "/texo_gambas.html", User.Home & "/texo_gambas.pdf"] Wait
Exec ["evince", User.Home & "/texo_gambas.pdf"]

End


Agradezco mucho si me guían a la solución.

TSU Jarry Palacios.

Perfil MP   Sitio web AIM MSN Skype
jsbsan
Citar
Mensajes: 4175 Ubicación: dos hermanas, sevilla
Domingo, 17 Agosto 2014, 20:22
Objetivo: Re: Enviar Reporte Directamente A La Impresora
jarrypalacios

Citar:
existe opción de enviarla directamente a la impresora sin pre visualizar en pantalla.

Si, existe.

A mi se me ocurre lo siguiente:
Sustituye la siguiente linea

Exec ["evince", User.Home & "/texo_gambas.pdf"]


(evince es un programa que muestra los pdf por pantalla)
por:
Exec ["lp", User.Home & "/texo_gambas.pdf"]


lp es un comando que se encarga de imprimir, tienes varias opciones... Nunca lo he usado, porque a mi siempre me gusta ver que es lo que sale en el pdf, para luego imprimirlo en papel (por aquello de ahorrar papel ) .

He econtrado esto buscando en google en varios post:
http://braianet.blogspot.com.es/200...la-consola.html
http://openyourshell.wordpress.com/...al-de-comandos/

Perfil MP   Sitio web MSN
vuott
Citar
Mensajes: 2086
Lunes, 18 Agosto 2014, 00:51
Objetivo: Re: Enviar Reporte Directamente A La Impresora
...o, si tu no quieres usar las funciones Shell y Exec, ni usar la Clase Printer, puedes utilizar los recursos de la librería libcups:

http://www.gambas-it.org/wiki/index...del_API_di_cups

Perfil MP  
jarrypalacios
Citar
Mensajes: 25 Ubicación: Táchira
Lunes, 18 Agosto 2014, 00:55
Objetivo: Re: Enviar Reporte Directamente A La Impresora
si que ha funcionado; muchas gracias.

Sin Embargo al usar las opciones del comando lp no funcionó;

este comando si ha funcionado aceptando las opciones

Shell "lp -o media=Letter " & User.Home & "/texo_gambas.pdf" Wait



comprendo lo que dices sobre la visualización de la impresión, realmente he pensado en imprimir así cuando se trata de recibos, facturas que tengan que ver con impresoras fiscales.

Saludos muchas gracias.

Perfil MP   Sitio web AIM MSN Skype
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.2327s (PHP: 36% SQL: 64%)
Consultas SQL: 23 - Debug off - GZIP Activado