Los foros del Guille

Ya está a la venta Novedades de Visual Basic 9.0

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

18/nov/2008
El primer libro de C# escrito por el Guille:

Aprenda C# 3.0 desde 0.0 - Parte 3, lo nuevo


Cónsiguelo desde aquí: http://www.elguille.info/NET/AprendaCSharp3/parte3_lo_nuevo.aspx

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58092 - Impresora termica no responde al publicar proyecto
IDAsuntoFechaNick 
58092 Impresora termica no responde al publicar proyecto25/09/16 21:00NoeFR   
Hola:

Ocupe parte del codigo de uno de sus publicaciones para imprimir un ticket directo a la impresora termica.

Me funciona perfectamente, pero al publicar el proyecto no me imprime. Incluso el proyecto publicado en local no responde la impresora.

¿Me pueden ayudar?

Saludos


Sub sbImprimirTicketDirecto()
Dim printDoc As New Drawing.Printing.PrintDocument
Try
AddHandler printDoc.PrintPage, AddressOf sbTicketAImpresora
printDoc.Print()

Catch ex As Exception
scriptManager.RegisterStartupscript(Me, Me.GetType(), "alertIns", "alert('Error al imprimir el ticket');" & vbCr & " Err.Descripcion: " & Err.Description & vbCr & " No.Error" & Err.Number & vbCr & "Error.Source" & Err.Source, True)
End Try
End Sub

'Imprime el ticket directamente a Impresora pre-determinada
Private Sub sbTicketAImpresora(ByVal sender As Object, ByVal e As Drawing.Printing.PrintPageEventArgs)

Try
Dim xPos As Single = 0
Dim prFont As New Drawing.Font("Source Code Pro", 8, Drawing.Fontstyle.Bold)
Dim yPos As Single = 0
Dim Empresa As String = vbNullString
Dim strRutaLogo As String = vbNullString
Dim CalleNum As String = vbNullString
Dim Telefono As String = vbNullString
Dim Folio As String = vbNullString
Dim Municipio As String = vbNullString
Dim sCliente As String = vbNullString
Dim sFecha As String = vbNullString
Dim FechaFin As String = vbNullString
Dim sTitulos As String = vbNullString
Dim sProductos As String = vbNullString
Dim sTotal As String = vbNullString
Dim sPago As String = vbNullString
Dim sCambio As String = vbNullString

Dim NumPipa As String = vbNullString
Dim Volumen As String = vbNullString
Dim Firma As String = vbNullString
Dim sAtendio As String = vbNullString
Dim TitulosAtendio As String = vbNullString
Dim Supervisor As String = vbNullString
Dim TituloSupervisor As String = vbNullString
Dim Lineas As String = vbNullString

Session("strQuery") = vbNullString
Session("strQuery") &= "Select m.CvTelExt,m.CvMan,m.CvDsc,m.CvCalleNum,m.CvDel,m.CvColFrac,v.BenCve+' '+b.BenNomRS Cliente,tc.CvDsc Tipo_Pago,v.capusu Atendio, substring(v.capFec,7,2)+'-'+substring(v.capFec,5,2)+'-'+substring(v.capFec,1,4) capFec,v.capHor," & vbCr
Session("strQuery") &= " v.IdVenta,ImporteTotal Total,ImportePago Pago ,ImporteCambio Cambio," & vbCr
Session("strQuery") &= " vd.Consecutivo,cast(cast(vd.Cantidad as decimal(18,2)) as varchar)Cantidad, p.Dsc, vd.Importe PrecioUnitario ,vd.Descuento,cast(vd.Total*vd.Cantidad as decimal(18,2)) Parcial,CvImagen" & vbCr
Session("strQuery") &= "From Pv_Ventas v" & vbCr
Session("strQuery") &= " inner join Beneficiario b on v.cvMan = b.CvMan and v.BenCve = b.BenCve" & vbCr
Session("strQuery") &= " inner join Mandato m on v.cvMan = m.CvMan" & vbCr
Session("strQuery") &= " inner join Fac_TipoCobro tc on v.IdTipoCobro = tc.IdTipoCobro" & vbCr
Session("strQuery") &= " inner join Pv_VentasDetalle vd on v.cvMan = vd.cvman " & vbCr
Session("strQuery") &= " and v.IdCaja = vd.IdCaja and v.IdVenta = vd.IdVenta" & vbCr
Session(&q

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 29 - App. iniciada: 15/12/2017 5:21:35 GMT - La hora GMT del servidor es: 15/12/2017 06:13:39 GMT