:-D Hola a todos!

Tengo que imprimir un texto por distintas impresoras, que por supuesto tienen configurados distintos margenes por defecto. Yo quiero que en todos salga el mismo margen, asi que mi pregunta es:

¿¿¿¿¿ Como puedo leer los margenes que tiene configurada la impresora ????

Si alguien puede ayudarme muchas gracias desde ya

Un saludo

Silvia

Yo pienso que ta falta dar un poco mas de informacion :
imprimes un texto, pero como le das salida ?
por el objeto printer?
por el commondialog?
o por la api de windows

si el por el objeto printer , el mismo tiene una serie de propiedades que lo puedes hacer
si es por el commondialog tambien
si es por la api aqui tienes algo:

el problema no es nada facil de resolver ya que tienes que someterte a ir a la API DE WINDOWS y remitirte a sus funciones especificas para ese caso, pero no importa aqui te muestro algo.



ESTAS SON FUNCIONES DE LA API NECESARIAS PARA LO QUE QUIERES

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

' un pequeño ejemplo

Private Sub Form_Load()
Dim hPrinter As Long
OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
PrinterProperties Me.hwnd, hPrinter
ClosePrinter hPrinter
End Sub


saludos.

ops: Perdón por la falta de información. Con lo que estoy imprimiendo es con un objeto printer. El problema esta que al configurar los margenes con CurrentX y CurrentY no le puedo dar un valor fijo porque varia dependiendo de la impresora por la que imprima.


Voy a probar la API que me has puesto a ver si funciona.

Muchas gracias

Un saludo

Silvia

:grin:
Bueno a ver si esta vez me explico mejor.

Mi problema es que estoy imprimiendo un listado con el objeto Printer en un A4 y tengo que imprimirlo por distintas impresora, con margenes predefinidos distintos. Yo quiero que el texto empiece en todas en la misma posicion a 12 mm del borde y no se como hacerlo.

He probado lo siguiente, cojo el tamaño de la pagina y le resto la tamaño de la zona de impresion.

PosicionX = Round(12 - (297 - Printer.ScaleWidth))

Esto me da los margenes de cada lado de la hoja sumados, pero yo los quiero por separado, y no me vale dividirlos entre dos porque no son iguales.

¿¿Alguien sabe como puedo solucionar esto???????????

Por favor!!!!!!!!!!!!!!!!!


Un saludo y gracias

Silvia

ah bueno entonces la cosa es mas sencilla ahora

solo lo que tienes que cambiar es el currentx

Printer.ScaleMode = 6 ' de esta forma lo defines en mm
Printer.CurrentX = 12
Printer.Print "ESTO ES UNA PRUEBA"
Printer.EndDoc


de esta forma solucionas el problema


cuando escojas la otra impresora debes definir

Printer.ScaleMode = 6

el cual le dices que es en milimetros para esa impresora tambien y funciona con el currentx.

Lo probe y funciona correctamente.

Saludos

Gracias por contestar, pero eso no me soluciona el problema.

Ya habia probado a poner CurrentX a 12 pero me imprime el texto a 12 mm del margen establecido de la impresora pero no a 12 mm del borde del papel.

Estoy probando con una API "GetDeviceCaps" que parece que funciona pero no consigo exactamente el tamaño de los margenes.

No se seguire probando, muchas gracias

pero debe ser a 12 mm del papel , sino es asi hay algun otro problema desconocido, lo he probado en varias maquinas y funciona.

saludos.