Visual Basic - ALINEAR AL IMPRIMIR EN LISTVIEW

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ALINEAR AL IMPRIMIR EN LISTVIEW

Publicado por Ramón (90 intervenciones) el 18/12/2005 19:07:57
En vez de utilizar la función Spc (que sólo es válida para fuentes de tamaño fijo p.e. Courier New), usa la propiedad CurrentX del Printer:
Printer.CurrentX = 10
Printer.Print reg.ListItems(i+1).Text;
Printer.CurrentX = 25
Printer.Print... etc,
A tus piés. Ramón
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar