elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Mensajes
Páginas: [1] 2 3 4
1  Programación / Programación Visual Basic / Re: imprimir list1 en: 8 Octubre 2020, 20:13
perfecto


muchas gracias nebire
2  Programación / Programación Visual Basic / Re: imprimir list1 en: 8 Octubre 2020, 13:55
hola nebire

he resuelto el tema

en el codigo he modificado declarar la variable prod que es el producto

el prod me acepta 19 caracteres en el list1 a la hora de declarar la variable me lo hace bien


dim prod as string * 19



ahora si


gracias nebire
3  Programación / Programación Visual Basic / Re: imprimir list1 en: 7 Octubre 2020, 23:00
hola nebire

he hecho los cambios de la funcion y el resultado me sale igual


me podrias hacer un ejemplo lo de un array y usarlo como posicion


gracias
4  Programación / Programación Visual Basic / Re: imprimir list1 en: 7 Octubre 2020, 21:05
aqui te paso un ejemplo


         cantidad        producto                             precio                       subtotal
            10             tomates de barbastro                2                            20
            30             patatas  0,60                             18









                                                                                            subtotal:  38
                                                                                                   iva:   4,56
                                                                                                 total:  42.56




gracias


       
5  Programación / Programación Visual Basic / Re: imprimir list1 en: 6 Octubre 2020, 23:46
Hola nebire

el problema esta en la columna producto, porque no siempre tiene los mismos caracteres

como seria el codigo para arreglar la columna producto

Gracias
6  Programación / Programación Visual Basic / Re: imprimir list1 en: 6 Octubre 2020, 23:25
Hola nebire por fin he podido correr el programa

hasta ahora tengo esto

Código:

Private Sub Command7_Click()
' Imprimir
Dim factura As Integer






Dim total As String
Dim total1 As String
Dim total2 As String


Dim jk As String
'jk = App.Path & "\facturas\" & Combo2.Text & "\" & Txtnum.Text & ".txt"

Printer.Print Tab(5); "HORA: " & UCase(Format(Now, "hh:mm am/pm"))



Dim i As Integer
Dim aux As String


Printer.FontSize = 18

Printer.CurrentX = 4000
Printer.CurrentY = 0
Printer.Print "Factura Nº:"
Printer.CurrentX = 6000
Printer.CurrentY = 0
Printer.Print Txtnum.Text


Printer.CurrentX = 1000
Printer.CurrentY = 3000
Printer.Print "Cantidad"
Printer.CurrentX = 3500
Printer.CurrentY = 3000
Printer.Print "Producto"
Printer.CurrentX = 7350
Printer.CurrentY = 3000
Printer.Print "Precio"
Printer.CurrentX = 9900
Printer.CurrentY = 3000
Printer.Print "Subtotal"



Printer.CurrentX = 3000
Printer.CurrentY = 3500






 
  listarcolumnas



'Label5.Caption = total
'Label6.Caption = total1
'Label7.Caption = total2

Printer.CurrentX = 8400
Printer.CurrentY = 10000
Printer.Print "Subtotal:"
Printer.CurrentX = 9300
Printer.CurrentY = 10500
Printer.Print "iva:"
Printer.CurrentX = 9000
Printer.CurrentY = 11000
Printer.Print "Total:"

Printer.CurrentX = 10000
Printer.CurrentY = 10000
Printer.Print Label5.Caption
Printer.CurrentX = 10000
Printer.CurrentY = 10500
Printer.Print Label6.Caption
Printer.CurrentX = 10000
Printer.CurrentY = 11000
Printer.Print Label7.Caption



Printer.Print







 Printer.EndDoc
 


End Sub





Private Sub listarcolumnas()
Dim AnchoPapel As Integer
    Dim MargenIzquierdo As Integer
    Dim numCols As Integer
    Dim filas As Long
    Dim ultimafila As Long
    Dim k As Long, j As Long, i As Integer, n As Integer, anchocol As Integer
    Dim linea As String
    Dim margen As Integer
    Dim fuente As StdFont
 
 
    Set fuente = Printer.Font
    numCols = 4
    Printer.FontName = "Courier New"  ' una fuente monoespaciada, si no el trabajo es más laborioso...
    filas = ((List1.ListCount + 1) \ numCols)
    ultimafila = ((List1.ListCount + 1) Mod numCols) ' columnas que tendrá la última fila.
    anchocol = ((AnchoPapel - MargenIzquierdo) \ numCols)
   
   
    For k = 0 To filas - 1
        n = margen
        For i = 0 To numCols - 1
            Printer.CurrentX = n  ' imprime el texto de la columna 'i'
            Printer.Print List1.List(j + i)
            n = (n + anchocol)
        Next
 
        j = (j + numCols)
        Printer.CurrentY = (Printer.CurrentY + Printer.TextHeight("t"))  ' el textheight depende de la fuente seleccionada en la impresora, no importa el texto entre paréntesis... es fijo para la  fuente.
    Next
 
    If (ultimafila > 0) Then ' la última fila tiene 1 o más columnas, pero menos que 'numcols'.
        n = margen
        For i = 0 To ultimafila - 1
            Printer.CurrentX = n  ' imprime el texto de la columna 'i'
            Printer.Print List1.List(j + i)
            n = (n + anchocol)
        Next
    End If
 
    Set Printer.Font = fuente
End Sub










y me sale lo siguiente:

la primera fila casi lo hace bien

la segunda fila: primera columna bien segunda columna bien tercera columna mal y cuarta columna mal

faltaria arreglar los datos de la segunda fila



gracias







7  Programación / Programación Visual Basic / Re: imprimir list1 en: 6 Octubre 2020, 22:26
Gracias
8  Programación / Programación Visual Basic / Re: imprimir list1 en: 5 Octubre 2020, 16:32
Hola nebire

no puedo seguir con el ejemplo que has puesto, porque no consigo separar las columnas
del list1 por impresora


gracias
9  Programación / Programación Visual Basic / Re: imprimir list1 en: 5 Octubre 2020, 03:57
gracias por contestar

tu mismo lo dices que hay un error

asi no se solucionan las cosas


yo soy principiante en programacion

gracias por contestar

cierro tema
10  Programación / Programación Visual Basic / Re: imprimir list1 en: 4 Octubre 2020, 23:15
He probado la funcion y no funciona
gracias
Páginas: [1] 2 3 4
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines