
16/06/2008, 20:27
|
| | Fecha de Ingreso: marzo-2008
Mensajes: 21
Antigüedad: 17 años, 1 mes Puntos: 0 | |
hacer una separacion de linea al imprimir listview hola amigo es sencillo quisiera saber como hago para agregar una separacion de linea mientras imprimo mi listview para separar unos items de otros!!! este es mi codigo un poco desordenado DISCULPEN...
Dim aviso As Integer
Dim X, Y, I, w, f
aviso = MsgBox("DESEA IMPRIMIR LA INFORMACIÓN", vbQuestion + vbYesNo, "Cauchos")
If aviso = 6 Then
X = 70
Y = 30
Printer.ScaleMode = 6
Printer.FontSize = 10
Printer.FontBold = False
Printer.FontUnderline = False
Printer.Print "REPORTE DE CONSUMO DE CAUCHOS POR PLACA"
X = 30
Y = 50
For I = 1 To 4
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.Print ListView1.ColumnHeaders.item(I)
X = X + 40
Next
X = 30
Y = Y + 10
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.Print ListView1.ListItems.item(1)
For w = 1 To ListView1.ListItems.Count
For f = 1 To 3
Printer.CurrentX = X + 40
Printer.CurrentY = Y
Printer.Print ListView1.ListItems.item(w).SubItems(f)
X = X + 40
Next f
X = 30
Y = Y + 4
Next w
Y = Y + 8
X = 30
Printer.NewPage
Printer.EndDoc
End If
End Sub
lo que quiero es que por cada grupo de items relacionados con una placa me deje un espacio, eso es todo
solo eso
11E-GAJ ITEM
ITEM
espacio
395-XIW ITEM
ITEM
eso es lo que quiero!!!!! para ustedes colegas no creo que sea gran cosa |