Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/05/2010, 16:25
Monchorolas
 
Fecha de Ingreso: mayo-2010
Mensajes: 3
Antigüedad: 14 años
Puntos: 0
Tengo Un Problema con Printer.CurrentX VB6

Resulta que tengo el siguiente código:

Dim Impresora As Printer
' mImpresora es String y es ele nómbre de la impresora
Etiqueta.Caption = "Imprimiendo en " & mImpresora
' esto es para seleccionar impresora
For i = 0 To Printers.Count - 1
If Printers(i).DeviceName = mImpresora Then
Set Impresora = Printers(i)
Exit For
End If
Next i
' Distancias(x,y) es Integer
' AQUÍ ES EL PROBLEMA
Impresora.CurrentX = Distancias(1, 1)
Impresora.CurrentY = Distancias(1, 2)
Impresora.Print mEncabezado.Nombre
Impresora.CurrentX = Distancias(3, 1)
Impresora.CurrentY = Distancias(3, 2)
Impresora.Print mEncabezado.Dir1
' ***** Continúa *******


Resulta que Impresora.CurrentX, me da un Run-Time Error '383', que dice que la propiedad es de solo lectura...

¿Que podrá ser?
¿Faltará algún componente o referencia?