Hola Exe! si hace tiempo no pasaba por aqui. Bueno, gracias por tu ayuda, me sirvio bastante.
Un saludo, y segui asi con esta comunidad =)
Pilton.
Un saludo, y segui asi con esta comunidad =)
Pilton.
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenuDim dtMaxCod As New DataTable
Dim MaxCod As Short
Dim odaMaxCod As New OdbcDataAdapter("SELECT MAX(codigo) FROM usuarios", objConx)
objConx.Open()
Try
odaMaxCod.Fill(dtMaxCod)
Catch ex As Exception
MsgBox(ex.Message)
End Try
objConx.Close()
MaxCod = dtMaxCod.Rows(0)(0)
'Mostramos el valor de la consulta (maxcod)
MsgBox(MaxCod)
Dim tblUsers As DataTable
Dim MaxCod As Short
tblUsers = dsUsuarios.Tables("usuarios")
Dim dvUsers As New DataView
dvUsers.Table = tblUsers
dvUsers.RowFilter = "MAX(codigo)"
MaxCod = dvUsers.Item(0)(0)
MsgBox(MaxCod)
Printer.ScaleMode=vbMillimeters
'TAMAÑO PERSONALIZADO, ACA TIRA ERROR... TIRA:
'ELVALOR DE LA PROPIEDAD NO ES VALIDO
Printer.PaperSize=256
'ANCHO Y ALTO DEL PAPEL PERSONALIZADO
Printer.Width=169
Printer.height=280
Printer.CurrentX=60
Printer.CurrentY=73
Printer.Print "34049974"
Printer.EndDoc