ALINEAR AL IMPRIMIR EN LISTVIEW
Publicado por catita zarate (3 intervenciones) el 18/12/2005 16:43:40
Necesito que al imprimir un LISTVIEW me salga alineado pero no lo consigo, con los titulos de la factura no tengo problemas por lo demas si, y me sale desalineado de la siguiente manera :
CODIGO-------DESCRIPCION------CANTIDAD---UNIDAD_CAJA----VALOR----MONTO_TOT
=======================================================================
LC800------LECHE CULTIVADA FRAMBUESA------1------6*1------3456------3456
YG630------YOGHURT DIET NATURAL------2------36*1------4500------9000
YG637------YOGHURT DIET MORA------3------36*1------4500------13500
NOTA:los guiones que separan las palabras no las consideren(hagan de cuenta que son espacios en blanco) los puse para que se vean separados al ponerlos en el foro
Private Sub cmd_mer_Click()
Dim A As String, B As String, C As String, D As String, E As String, F As String, cont As Integer, Z As Integer
Dim i As Integer, ImpLinea As Integer
Printer.Print Spc(15); reg.ColumnHeaders(1).Text & " " & reg.ColumnHeaders(2).Text; Spc(12) _
; reg.ColumnHeaders(3).Text; Spc(5); reg.ColumnHeaders(4).Text; Spc(5) _
; reg.ColumnHeaders(5).Text; Spc(5); reg.ColumnHeaders(6).Text
Printer.Print Spc(15); "=========================================================================================== "
Printer.Print " "
For i = 0 To reg.ListItems.Count - 1
Printer.Print Spc(15); reg.ListItems(i + 1).Text; Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(1); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(2); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(3); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(4); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(5); Spc(10)
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
End sub
Espero su ayuda gracias
Atte
CATITA ZARATE
CODIGO-------DESCRIPCION------CANTIDAD---UNIDAD_CAJA----VALOR----MONTO_TOT
=======================================================================
LC800------LECHE CULTIVADA FRAMBUESA------1------6*1------3456------3456
YG630------YOGHURT DIET NATURAL------2------36*1------4500------9000
YG637------YOGHURT DIET MORA------3------36*1------4500------13500
NOTA:los guiones que separan las palabras no las consideren(hagan de cuenta que son espacios en blanco) los puse para que se vean separados al ponerlos en el foro
Private Sub cmd_mer_Click()
Dim A As String, B As String, C As String, D As String, E As String, F As String, cont As Integer, Z As Integer
Dim i As Integer, ImpLinea As Integer
Printer.Print Spc(15); reg.ColumnHeaders(1).Text & " " & reg.ColumnHeaders(2).Text; Spc(12) _
; reg.ColumnHeaders(3).Text; Spc(5); reg.ColumnHeaders(4).Text; Spc(5) _
; reg.ColumnHeaders(5).Text; Spc(5); reg.ColumnHeaders(6).Text
Printer.Print Spc(15); "=========================================================================================== "
Printer.Print " "
For i = 0 To reg.ListItems.Count - 1
Printer.Print Spc(15); reg.ListItems(i + 1).Text; Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(1); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(2); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(3); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(4); Spc(10) _
; reg.ListItems.Item(i + 1).SubItems(5); Spc(10)
ImpLinea = ImpLinea + 1
If ImpLinea = 30 Then
Printer.NewPage
ImpLinea = 0
End If
Next i
Printer.EndDoc
End sub
Espero su ayuda gracias
Atte
CATITA ZARATE
Valora esta pregunta


0