muchas gracias por no resolver el problema
gracias por todo

Hola

En el formulario FrmCompra necesito pasar la ibformacion de el articulo selecionado del list1 a los text para pder hacer la venta



Gracias

Hola
alguien me  puede ayudar
gracias

Hola
eatoy intentando de hacer el proceso de  la venta de cualquier articulo y de cualquier almacen
en el formulario del almacen puedo hacear cualquier almacen
En el fomulario Frmfacturacionventa selecciono la facturacion y en el menu
de edicion se escoje nueva venta y va al formulario FrmCompra que es para vebta
hay un menu de buacr almaceb dentro del almacen hay abrir almacen y cerrar almacen
cuando digo abrir almacen me pone los datos en el list1. hasta ahi todo bien


https://workupload.com/file/YDzEPkjcWju



me faltaria pasar datos del liat1 a los text y hacer el proceso de venta para cada articuko

gracias

Hola
Ahora consigo leer los daros  pero no consigo separar los daros correctamente


https://workupload.com/file/8BGVG7AAnbT

gracias

Hola
estoy intentando de leer la informacion del archivo almacen.regdata que esta en el directorio almacen al list1 y no lo consigo
tengo error en el proceso listar
aqui el archivo



https://workupload.com/file/Xd6GygBshTR


gracias

Hoka
ya lo he solucionado
he cambiado el encabezado y todo ok

 
  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 = 9
      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)
     lineas = 0
      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.
     lineas = lineas + i
         If lineas > 24 Then
      Printer.NewPage
       Encabezado
       lineas = 0
    End If
 
      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 i
     End If
      Set Printer.Font = fuente
    End Sub
 
Sub Encabezado()
  Printer.FontBold = True
  Printer.Print 'Imprime una línea vacía
  Printer.Print "  HORA: "; Time; Spc(27); "LISTADO DE ALMACEN"; Spc(20); "FECHA: "; Date
  Printer.Print "  "; String(104, "=")
  Printer.Print "  Código | Stock | Artículo"; Spc(10); "| Precio | Impuesto | Uds.Caja | Umbral | Pedido | En Oferta"
  Printer.Print "  "; String(104, "-")
  Printer.FontBold = False
End Sub
 
 
 
 

tema resuelto
muchas gracias

Hola
He podido hacer esto

 
 lineas = lineas + i
         If lineas > 24 Then
      Printer.NewPage
      encabezado
      lineas = 0
    End If
 
 

ahora la primera hoja sale bien pero la segunda hoja  a la hora de imprimir sale lo siguiente:



HORA: 13:18                            Listado de Almacen                  Fecha:17/07/2024


Codigo Stock         Articulo         Precio   Impuesto  Uds.Caja  Umbral    Pedido  En Oferta 28 |
 115 |Pizza romana   |  2,200 | 21,00 % |  440 | 20 % |  24 |Falso
30 |  97 |Pizza margarita  |  2,200 | 21,00 % |  440 | 20 % |  20 |Falso
32 | 213 |Galletas tostadas  |  0,800 | 10,00 % |  800 | 10 % |  22 |Falso
33 |  29 |Vinagre de vino 1l |  0,450 | 10,00 % |   1 | 10 % |  8 |Falso
35 |  30 |a       |  2,600 | 21,00 % |   1 | 20 % |  6 |Falso
36 |  30 |b       |  2,800 | 21,00 % |   1 | 20 % |  6 |Falso
37 |  30 |c       |  1,500 | 21,00 % |   1 | 20 % |  6 |Falso


no se donde esta el error

gracias

estoy haciendo esto

 
 
i = 1
encabezado
 
 
    listarcolumnas
 
  i = i + 1
   If i = 24 Then    '2
 
 
Printer.NewPage
 
  i = 0
 encabezado
End If
 
 
 

y me esta haciendo el listado completo, no me hace por varias hojas
gracias

Kola  Mr.Byte

intento hacer esto:

 
encabezado
 
 
    listarcolumnas
 
  i = i + 1
   If i = 24 Then    '2
 
 
Printer.NewPage
 
 encabezado
End If
 
 
 
 
 

y me hace el listado completo
no consigo hacerlo en varias hojas
gracias