Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/06/2008, 20:27
AnthonyDreamer
 
Fecha de Ingreso: marzo-2008
Mensajes: 21
Antigüedad: 16 años, 2 meses
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