Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Imprimir Varias Hojas con PrintDocument

248 views
Skip to first unread message

Friend

unread,
Aug 24, 2006, 4:19:49 PM8/24/06
to
Hola ...se me presento el siguiente caso:
Imprimo un documento con un PrintDocument de Tamaño 10cm x 5cm, donde
Imprimo una Iagendel mismo tamaño y un codigo de Barra.
El codigo siguiente realiza la tarea sin problemas.

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e
As System.Drawing.Printing.PrintPageEventArgs) Handles
printDocument1.PrintPage
Try
Dim MyFuente As Font
Dim pfc As New PrivateFontCollection()
pfc.AddFontFile(PATH_FONTS & "\" & Me.cbListaFonts.Text)
Dim FontFamilyBarCode As FontFamily
FontFamilyBarCode = pfc.Families(0)
MyFuente = New Font(FontFamilyBarCode, 80)
e.Graphics.DrawImage(Me.pbxTarjeta.Image, 0, 0)
e.Graphics.DrawImage(Me.pbxFirma.Image, 430, 130)
e.Graphics.DrawString(Me.lblValidaHasta.Text, New Font("Arial",
20, FontStyle.Bold), Brushes.Black, 177, 190)
e.Graphics.DrawString(formatbarcode(Me.txtNumeroInicial.Text),
MyFuente, Brushes.Black, 105, 300)

Catch Qex As Exception
MessageBox.Show(Qex.Message, "Seguridad del Sistema",
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

El asunto al cual le estoy dando muchas vueltas es poder imprimir el mismo
documento pero segun un rango, ya no de una en una, ojo que en cada
impresion el codigo de barra debe de cambiar, segun el numero de un
contador.
Intente hacerlo de la siguiente manera pero siempre me sale un cuadro de
dialogo donde se incrementa las hojas hasta que le hago click en cancelar,
eso por el e.HasMorePages creo.

Como seria mi codigo o en que estoy cometiendo el error, pues siempre me
imprime una sola pagina con el valor del ultimo contador, es decir reescribe
la impresion sobre la misma hoja.


Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e
As System.Drawing.Printing.PrintPageEventArgs) Handles
printDocument1.PrintPage
Try

Dim MyFuente As Font
Dim pfc As New PrivateFontCollection()
pfc.AddFontFile(PATH_FONTS & "\" & Me.cbListaFonts.Text)
Dim FontFamilyBarCode As FontFamily
FontFamilyBarCode = pfc.Families(0)
MyFuente = New Font(FontFamilyBarCode, 80)

Dim Contador As Integer = Me.txtCantidad.Text
Dim Posicion As Integer = 0
Dim i As String = "0000005"

While Contador > 0

If Posicion <> 0 Then
Exit While
End If

e.Graphics.DrawImage(Me.pbxTarjeta.Image, 0, Posicion)
e.Graphics.DrawString(CType(Contador, String).PadLeft(7,
"0"), New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 160 +
Posicion)
e.Graphics.DrawImage(Me.pbxFirma.Image, 430, 130 + Posicion)
e.Graphics.DrawString(Me.lblValidaHasta.Text, New
Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 190 + Posicion)
e.Graphics.DrawString(formatbarcode(CType(i,
String).PadLeft(7, "0")), MyFuente, Brushes.Black, 105, 300 + Posicion)

Contador = Contador - 1
Posicion = Posicion + 420
End While

If Contador = 0 Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If

Catch Qex As Exception
MessageBox.Show(Qex.Message, "Seguridad del Sistema",
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

Gracias.


Leonardo Azpurua [mvp vb] arroba punto

unread,
Aug 25, 2006, 12:36:32 PM8/25/06
to
 
"Friend" <cmde...@upch.edu.pe> escribió en el mensaje news:uKeNDp7x...@TK2MSFTNGP02.phx.gbl...
> Hola ...se me presento el siguiente caso:
> Imprimo un documento con un PrintDocument de Tamaño 10cm x 5cm, donde
> Imprimo una Iagendel mismo tamaño y un codigo de Barra.
> [...] 
Hola, Friend:
 
El evento PrintPage del objeto PrintDocument se llama para que llenes UNA hoja en el dispositivo.
 
Por lo que veo en el codigo, me parece que intentas imprimir varias "bandas" en cada pagina (de alli el desplazamiento de «Posicion»).
 
En tu ciclo original no alteras el valor de "i" (que no tiene sentido declarar como String, ya que es un numero).
 
Una implementacion posible seria:
 
Private Const BANDAS_POR_PAGINA = 3
Private Const ALTO_BANDA = 420
 
Private Contador As Integer, i As Integer
 
' Tanto Contador como i son inicializadas con los valores requeridos antes de llamar
' a PrintDocument1.Print
Private Sub printDocument1_PrintPage(ByVal sender As System.Object, _
    ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
Dim j, Posicion as Integer
        Try
            Dim MyFuente As Font
            Dim pfc As New PrivateFontCollection()
            pfc.AddFontFile(PATH_FONTS & "\" & Me.cbListaFonts.Text)
            Dim FontFamilyBarCode As FontFamily
            FontFamilyBarCode = pfc.Families(0)
            MyFuente = New Font(FontFamilyBarCode, 80)
            Posicion = 0
 
            For j = 1 To BANDAS_POR_PAGINA
                e.Graphics.DrawImage(Me.pbxTarjeta.Image, 0, Posicion)
                e.Graphics.DrawString(Contador.ToString("0000000"), ... , 177, 160 + Posicion)

                e.Graphics.DrawImage(Me.pbxFirma.Image, 430, 130 + Posicion)
                e.Graphics.DrawString(Me.lblValidaHasta.Text, ... , 177, 190 + Posicion)
                e.Graphics.DrawString(formatbarcode(i.ToString("0000000"), ... , 105, 300 + Posicion)

                Contador = Contador - 1
                i = CalcularProximoValor(i) ' Te falta algo como esto...

                If Contador = 0 Then
                    e.HasMorePages = False
                    Return
                End If
                Posicion += ALTO_BANDA
            Next
            e.HasMorePages = True
        Catch Qex As Exception
            MessageBox.Show(Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ' No creo que una excepción aquí tenga mucho que ver con "Seguridad del Sistema"
        End Try
End Sub
Como ves, en PrintPage te limitas a decrementar el contador, si es igual a cero, no hay mas paginas que imprimir, de lo contrario sí que las hay. No me atrevo a segurar que esto funcione tal como está, pero por ahi van los tiros.
 
Las unicas responsabilidades de PrintPage son llenar la pagina recibida en e.Graphics y determinar si aun hay otra pagina por imprimir. Fijate que en este caso le estamos asignando ademas la de decrementar el contador. Lo hacemos porque es la unica manera de determinar si hay o no más paginas por imprimir.
 
 
Salud!
 

Friend

unread,
Aug 25, 2006, 6:50:22 PM8/25/06
to
Gracias por la aclaracion....Corregi el codigo por este y no hay Problema Alguno ;-)
 

Dim

 Cantidad As Integer

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage

Try

Dim ValorAImprimir As String

ValorAImprimir =

CType(Me.txtNumeroInicial.Text, Long) + Cantidad

If Cantidad = CType(Me.txtCantidad.Text, Integer) + 1 Then

e.HasMorePages =

False

Cantidad = 0

Exit Sub

End If

Dim MyFuente As Font

Dim pfc As New PrivateFontCollection()

pfc.AddFontFile(PATH_FONTS &

"\" & Me.cbListaFonts.Text)

Dim FontFamilyBarCode As FontFamily

FontFamilyBarCode = pfc.Families(0)

MyFuente =

New
Font(FontFamilyBarCode, 80)

e.Graphics.DrawImage(

Me.pbxTarjeta.Image, 0, 0)

e.Graphics.DrawImage(

Me.pbxFirma.Image, 430, 130)

e.Graphics.DrawString(

Me.lblValidaHasta.Text, New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 190)

e.Graphics.DrawString(ValorAImprimir.PadLeft(7,

"0"), New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 150)

e.Graphics.DrawString(formatbarcode(ValorAImprimir.PadLeft(7,

"0")), MyFuente, Brushes.Black, 105, 300)

'TODO : 'Grabar a la Base de datos luego de imprimir la Página.

Try

If FlatGrabar = 1 Then

Call GrabaNroTarjetaBaseDatos(ValorAImprimir.PadLeft(7, "0"))

End If

Catch Qex As Exception

MessageBox.Show(

"La Impresión se suspendera vulva a Imprimir desde el Número: " & ValorAImprimir.PadLeft(7, "0") & vbCrLf & Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

If Cantidad < CType(Me.txtCantidad.Text, Integer) - 1 Then

e.HasMorePages =

True

End If

Cantidad += 1

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Pero ahora cuando lanzo el documento en un PrintPreviewDialog, y le doy en el Boton Imprimir del PrintPreviewDialog siempre imprime solo la Ultima Hoja. Te adjunto el codigo completo porque ya no doy con el Problema. Gracias :-)

Imports

 System.Drawing.Text

Imports

 System.IO

Imports

 LogicaEmpresarial

Public

 Class FrmTab_GenerarTarjeta

Public vlQuienAbrio As Integer

Public vlNroTarjeta As String

Private _Font As Font

Private PATH_FONTS As String = "C:\PROYECTO_FINAL\InterfazCliente\Admision\Fonts"

'Private PATH_FONTS As String = ".\Fonts"

Private ImpresoraActual As New Printing.PrinterSettings

Private Lector As StreamReader

Private FlatGrabar As Integer

Private Sub FrmTab_GenerarTarjeta_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

FlatGrabar = 0

Me.lblTitulo.Text = "Generacion de Tarjetas"

Me.lblTitulo.BringToFront()

Me.lblValidaHasta.Text = Format(CType(Today.Day & "-" & Today.Month & "-" & Today.Year + 1, Date), "dd/MM/yyyy")

Call CargarListaFuentes()

Me.cbListaFonts.SelectedIndex = 3

Me.txtNumeroFinal.ReadOnly = True

Me.txtNumeroFinal.BackColor = System.Drawing.ColorTranslator.FromHtml("#FFFFE2")

Me.txtNumeroInicial.ReadOnly = True

Me.txtNumeroInicial.BackColor = System.Drawing.ColorTranslator.FromHtml("#FFFFE2")

Me.MenuImprimir.Enabled = False

Me.MenuAyuda.Enabled = False

Dim ClsNumeroInicial As New ClsTabTarjeta

Me.txtNumeroInicial.Text = CType(ClsNumeroInicial.NumeroInicial, String).PadLeft(7, "0")

Me.txtCantidad.Focus()

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Private Sub txtNumeroInicial_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroInicial.KeyPress

Try

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))

KeyAscii =

CShort(SoloNumeros(KeyAscii))

If KeyAscii = 0 Then

e.Handled =

True

'MessageBox.Show("Solo ingresa texto Numerico")

End If

Catch Qex As Exception

'MessageBox.Show(Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Private Sub MenuNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuNuevo.Click

Me.txtCantidad.Text = ""

Me.txtNumeroInicial.Text = ""

Me.txtNumeroFinal.Text = ""

Me.MenuImprimir.Enabled = False

Me.MenuAyuda.Enabled = False

Cantidad = 0

Dim ClsNuevoNumeroInicial As New ClsTabTarjeta

Me.txtNumeroInicial.Text = CType(ClsNuevoNumeroInicial.NumeroInicial, String).PadLeft(7, "0")

Me.txtCantidad.Focus()

End Sub

Private Sub CargarFuente(ByVal fuente As String)

Dim pfc As New PrivateFontCollection()

pfc.AddFontFile(PATH_FONTS &

"\" & fuente)

Dim FontFamilyBarCode As FontFamily

FontFamilyBarCode = pfc.Families(0)

_Font =

New Font(FontFamilyBarCode, 40)

End Sub

Private Sub CargarListaFuentes()

Try

Dim dir As New DirectoryInfo(PATH_FONTS)

'Dim dir As New DirectoryInfo("F:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2005\Projects\PROYECTO_FINAL\PROYECTO_FINAL\InterfazCliente\Admision\Fonts")

If (dir.Exists) Then

Dim file As FileInfo()

file = dir.GetFiles()

'Si la carpeta esta llena corremos su contenido para cargar fuentes

For Each Fonts As FileInfo In file

If (Fonts.Extension = ".TTF") Then

cbListaFonts.Items.Add(Fonts.Name)

End If

Next

'Seleccionamos por defecto una fuente

cbListaFonts.SelectedIndex = 0

End If

Catch ex As Exception

MessageBox.Show(ex.Message,

"RVC Soft®")

End Try

End Sub

Private Function formatbarcode(ByVal code As String) As String

Dim barcode As String = String.Empty

barcode =

String.Format("*{0}*", code)

Return barcode

End Function

'Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage

' Try

' Dim MyFuente As Font

' Dim pfc As New PrivateFontCollection()

' pfc.AddFontFile(PATH_FONTS & "\" & Me.cbListaFonts.Text)

' Dim FontFamilyBarCode As FontFamily

' FontFamilyBarCode = pfc.Families(0)

' MyFuente = New Font(FontFamilyBarCode, 80)

' e.Graphics.DrawImage(Me.pbxTarjeta.Image, 0, 0)

' e.Graphics.DrawImage(Me.pbxFirma.Image, 430, 130)

' e.Graphics.DrawString(Me.lblValidaHasta.Text, New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 190)

' e.Graphics.DrawString(formatbarcode(Me.txtNumeroInicial.Text), MyFuente, Brushes.Black, 105, 300)

' Catch Qex As Exception

' MessageBox.Show(Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

' End Try

'End Sub

Dim Cantidad As Integer

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage

Try

Dim ValorAImprimir As String

ValorAImprimir =

CType(Me.txtNumeroInicial.Text, Long) + Cantidad

If Cantidad = CType(Me.txtCantidad.Text, Integer) + 1 Then

e.HasMorePages =

False

Cantidad = 0

Exit Sub

End If

Dim MyFuente As Font

Dim pfc As New PrivateFontCollection()

pfc.AddFontFile(PATH_FONTS &

"\" & Me.cbListaFonts.Text)

Dim FontFamilyBarCode As FontFamily

FontFamilyBarCode = pfc.Families(0)

MyFuente =

New
Font(FontFamilyBarCode, 80)

e.Graphics.DrawImage(

Me.pbxTarjeta.Image, 0, 0)

e.Graphics.DrawImage(

Me.pbxFirma.Image, 430, 130)

e.Graphics.DrawString(

Me.lblValidaHasta.Text, New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 190)

e.Graphics.DrawString(ValorAImprimir.PadLeft(7,

"0"), New Font("Arial", 20, FontStyle.Bold), Brushes.Black, 177, 150)

e.Graphics.DrawString(formatbarcode(ValorAImprimir.PadLeft(7,

"0")), MyFuente, Brushes.Black, 105, 300)

'TODO : 'Grabar a la Base de datos luego de imprimir la Página.

Try

If FlatGrabar = 1 Then

Call GrabaNroTarjetaBaseDatos(ValorAImprimir.PadLeft(7, "0"))

End If

Catch Qex As Exception

MessageBox.Show(

"La Impresión se suspendera vulva a Imprimir desde el Número: " & ValorAImprimir.PadLeft(7, "0") & vbCrLf & Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

If Cantidad < CType(Me.txtCantidad.Text, Integer) - 1 Then

e.HasMorePages =

True

End If

Cantidad += 1

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Private Sub MenuImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuImprimir.Click

Try

FlatGrabar = 1

'TODO : 'Agregamos la Configuracion de la Página.

Dim TamañoPersonal As New Printing.PaperSize

Dim Ancho As Short

Dim Alto As Short

Ancho =

Short.Parse("655")

Alto =

Short.Parse("420")

TamañoPersonal =

New Printing.PaperSize("Tarjetas", Ancho, Alto)

printDocument1.PrinterSettings = ImpresoraActual

printDocument1.DefaultPageSettings.PaperSize = TamañoPersonal

Cantidad = 0

'

printDialog1.Document = printDocument1

'printDocument1.DefaultPageSettings.PrinterSettings.PrintRange.Selection = Printing.PrintRange.CurrentPage

'printDocument1.Print()

If printDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

printDocument1.Print()

Me.txtCantidad.Text = ""

Me.txtNumeroInicial.Text = ""

Me.txtNumeroFinal.Text = ""

Me.MenuImprimir.Enabled = False

Me.MenuAyuda.Enabled = False

Me.txtCantidad.Focus()

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub MenuAyuda_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuAyuda.Click

Try

FlatGrabar = 0

Dim TamañoPersonal As New Printing.PaperSize

Dim Ancho As Short

Dim Alto As Short

Ancho =

Short.Parse("655")

Alto =

Short.Parse("420")

TamañoPersonal =

New Printing.PaperSize("Tarjetas", Ancho, Alto)

printDocument1.PrinterSettings = ImpresoraActual

printDocument1.DefaultPageSettings.PaperSize = TamañoPersonal

Cantidad = 0

'Dim Preview As New PrintPreviewDialog

'Preview.Document = printDocument1

'Preview.MainMenuStrip.Items(0).Enabled = True

'Preview.ShowDialog(Me)

printPreviewDialog1.ShowDialog(

Me)

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

Private Sub MenuSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuSalir.Click

Me.Close()

End Sub

Private Sub txtNumeroInicial_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNumeroInicial.TextChanged

Try

If Me.txtNumeroInicial.Text.Trim.Length <> 0 Then

CargarFuente(

Me.cbListaFonts.Text)

If (txtNumeroInicial.Text = String.Empty) Then

lbBarCode.Text =

"Tienes que introducir un Código"

Else

If (Not _Font Is Nothing) Then

lbBarCode.Font = _Font

lbBarCode.Text = formatbarcode(txtNumeroInicial.Text)

lbcode.Text = formatbarcode(txtNumeroInicial.Text)

If Me.txtCantidad.Text.Trim.Length <> 0 Then

Me.txtNumeroFinal.Text = CType(CType(Me.txtNumeroInicial.Text, Long) + CType(Me.txtCantidad.Text, Long), String).PadLeft(7, "0")

End If

End If

End If

ElseIf Me.txtNumeroInicial.Text.Trim.Length = 0 Then

lbBarCode.Text =

""

Me.txtNumeroFinal.Text = ""

End If

Catch ex As Exception

MessageBox.Show(ex.Message,

"RVC Soft®")

End Try

End Sub

Private Sub txtCantidad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCantidad.KeyPress

Try

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))

KeyAscii =

CShort(SoloNumeros(KeyAscii))

If KeyAscii = 0 Then

e.Handled =

True

'MessageBox.Show("Solo ingresa texto Numerico")

End If

Catch Qex As Exception

'MessageBox.Show(Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Private Sub txtCantidad_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCantidad.TextChanged

Try

If Me.txtNumeroInicial.Text.Trim.Length <> 0 Then

If Me.txtCantidad.Text.Trim.Length <> 0 Then

Me.txtNumeroFinal.Text = CType(CType(Me.txtNumeroInicial.Text, Long) + CType(Me.txtCantidad.Text, Long) - 1, String).PadLeft(7, "0")

End If

End If

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Public Function SoloNumeros(ByVal Keyascii As Short) As Short

If InStr("1234567890", Chr(Keyascii)) = 0 Then

SoloNumeros = 0

Else

SoloNumeros = Keyascii

End If

Select Case Keyascii

Case 8

SoloNumeros = Keyascii

Case 13

SoloNumeros = Keyascii

End Select

End Function

Private Sub txtNumeroFinal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroFinal.KeyPress

Try

Dim KeyAscii As Short = CShort(Asc(e.KeyChar))

KeyAscii =

CShort(SoloNumeros(KeyAscii))

If KeyAscii = 0 Then

e.Handled =

True

'MessageBox.Show("Solo ingresa texto Numerico")

End If

Catch Qex As Exception

'MessageBox.Show(Qex.Message, "Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Private Sub txtNumeroFinal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNumeroFinal.TextChanged

Try

If Me.txtNumeroFinal.Text.Trim.Length <> 0 Then

Me.MenuImprimir.Enabled = True

Me.MenuAyuda.Enabled = True

ElseIf Me.txtNumeroFinal.Text.Trim.Length = 0 Then

Me.MenuImprimir.Enabled = False

Me.MenuAyuda.Enabled = False

End If

Catch Qex As Exception

MessageBox.Show(Qex.Message,

"Seguridad del Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

End Sub

Private Sub txtNumeroInicial_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNumeroInicial.Validating

Me.txtNumeroInicial.Text = Me.txtNumeroInicial.Text.PadLeft(7, "0")

End Sub

Private Sub GrabaNroTarjetaBaseDatos(ByVal NroTarjeta As String)

Dim NroTarjetas As New ClsTabTarjeta

NroTarjetas.GrabaTarjeta(NroTarjeta, Format(Today,

"dd/MM/yyyy"), Variables.vgUsuario, Variables.vgPerfil, Variables.vgIP)

End Sub

End

 Class

 

 

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g> escribió en el mensaje news:%23N2ThSG...@TK2MSFTNGP04.phx.gbl...
0 new messages