Hola queridos amigos

Estoy tratando de imprimir datos con el objeto Printer y se me presenta lo siguiente:

Al tratar de dibujar los datos de un listview en el primer listsubitem me arroja error 13 No coinciden los tipos, si quito lo correspondiente al primer subitem (Descripcion) imprime sin dramas, en que estoy chocando? tengo la cabeza cuadrada, se que es un error de colegial, les agradezco de antemano vuestra gentileza


Private Sub mnu_Imprimir_Click()

Printer.ScaleWidth = 21000
Printer.ScaleHeight = 29700
Const TOP_MARGIN = 1000
Const LEFT_MARGIN = 2000
Dim i As Integer
Dim Ancho As Long



'Detalle documento
For i = 1 To ListView1.ListItems.Count

If ListView1.ListItems.Count Then

'Descripcion
Ancho = Printer.TextWidth(Str(ListView1.ListItems(i).ListS ubItems(1)))
Printer.CurrentX = 3000 + Ancho
Printer.CurrentY = LEFT_MARGIN + (300 * i)
Printer.Print Format$(Str(ListView1.ListItems(i).ListSubItems(1) .Text), "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx x")

'Cantidad
Ancho = Printer.TextWidth(Str(ListView1.ListItems(i).ListS ubItems(2).Text))
Printer.CurrentX = 2000 - Ancho
Printer.CurrentY = LEFT_MARGIN + (300 * i)
Printer.Print Format$(Str(ListView1.ListItems(i).ListSubItems(2) .Text), "###,###,###")

'Unitario Item
Ancho = Printer.TextWidth(Str(ListView1.ListItems(i).ListS ubItems(3).Text))
Printer.CurrentX = 16000 - Ancho
Printer.CurrentY = LEFT_MARGIN + (300 * i)
Printer.Print Format$(Str(ListView1.ListItems(i).ListSubItems(3) .Text), "###,###,###")

'Total Item
Ancho = Printer.TextWidth(Str(ListView1.ListItems(i).ListS ubItems(4).Text))
Printer.CurrentX = 18000 - Ancho
Printer.CurrentY = LEFT_MARGIN + (300 * i)
Printer.Print Format$(Str(ListView1.ListItems(i).ListSubItems(4) .Text), "###,###,###")


End If
Next i
'Envio a la impresora
Printer.EndDoc

End Sub


Saludos a todos

Locodelcraneo :shock:

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

Pues te puede suceder que la función format no reconoce 'xxxxxxx' como patrón de justificación. Prueba con

o


pero aún así no te garantiza la justificación exacta, ya que las fuentes no suelen ser proporcionales.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

El error se me produce cuando le determino el ancho

Ancho = Printer.TextWidth(Str(ListView1.ListItems(i).ListS ubItems(1)))


Curiosamente en el ListSubItems(2) y (3) no me ocurre

Pense que me podria estar jorobando la Variable Ancho, la cambie a variant y me sucede lo mismo

Que onda?

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

Prueba a utilizar Cstr() en vez de str() y asigna antes el texto a una variable tipo String. En principio no tiene porqué dar un error, pero por si acaso vale más dejar por sentado el tipo de dato.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Solucionado


Quedo de esta forma

'Descripcion
Ancho = Printer.TextWidth(ListView1.ListItems(i).ListSubIt ems(1))
Printer.CurrentX = 3000
Printer.CurrentY = LEFT_MARGIN + (300 * i)
Printer.Print Format$(ListView1.ListItems(i).ListSubItems(1).Tex t, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx x")


Ademas donde le sumaba el ancho estaba mal porque esa linea debia quedar alineada a la Izquierda no como los otros que por ser Numeros debian alinearse a la derecha.

Gracias por tu siempre valiosa ayuda acalanto

Un abrazo del otro continente

Locodelcraneo :shock:

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia