Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Viernes, 03 May 2024, 11:51 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Enviar Reporte Directamente A La Impresora


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Enviar Reporte Directamente A La Impresora
Autor Mensaje
Desconectado jarrypalacios Sexo: Masculino
JARRY PALACIOS RIVAS
Usuario
Usuario
avatar
Registrado: Marzo 2014
Mensajes: 25
Edad: 41
Ubicación: venezuela.png Táchira
 
 
Responder citando   Descargar mensaje  
Mensaje 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.
 



 
#1  Sabado, 16 Agosto 2014, 23:52
jarrypalacios - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
Responder citando   Descargar mensaje  
Mensaje 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/
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
#2  Domingo, 17 Agosto 2014, 20:22
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado vuott Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60
Ubicación: italia.png
 
 
Responder citando   Descargar mensaje  
Mensaje 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
 



 
#3  Lunes, 18 Agosto 2014, 00:51
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado jarrypalacios Sexo: Masculino
JARRY PALACIOS RIVAS
Usuario
Usuario
avatar
Registrado: Marzo 2014
Mensajes: 25
Edad: 41
Ubicación: venezuela.png Táchira
 
 
Responder citando   Descargar mensaje  
Mensaje 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.
 



 
#4  Lunes, 18 Agosto 2014, 00:55
jarrypalacios - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Viernes, 03 May 2024, 11:51 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
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


  

 
cron