Power Builder - Ayuda URGENTE!!!!!!!!!!

 
Vista:

Ayuda URGENTE!!!!!!!!!!

Publicado por Emilio (5 intervenciones) el 21/02/2004 11:48:16
Hola, mi problema es el siguiente:
Necesito poder seleccionar la escala de impresión de una datawindow, le cambio la propiedad Print.Scale con el Modify pero no me hace ni caso. En la ayuda dice que solo funciona con impresoras cuyos drivers permitan la escalabilidad, he probado con todas las impresoras de la empresa y nada.
Espero que alguien me pueda ayudar. Gracias de antemano.
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:Ayuda URGENTE (Modificar escala de impresión)

Publicado por Oscar (1178 intervenciones) el 22/02/2004 05:03:22
Hola Emilio:
Tu problema es más fácil de lo que te imaginas. Olvidate del Print.Scale

* Sabemos que para manipular el Zoom se usa:
dw_1.Object.DataWindow.Print.Preview.Zoom

* Para modificar la ESCALA al IMPRIMIR:
dw_1.Object.DataWindow.Zoom

Mejor te pongo un ejemplo completito:

1. Evento open de tu ventana:
dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
dw_1.Object.DataWindow.Print.Preview= 'Yes'

2. Botón que cada vez que pulses, te aumente la escala en 10%:
Integer Valor
Valor=Integer(dw_1.Object.DataWindow.Zoom)
Valor=Valor + 10
dw_1.Object.DataWindow.Zoom=Valor

3. Botón que cada vez que pulses, te reduzca la escala en 10%:
Integer Valor
Valor=Integer(dw_1.Object.DataWindow.Zoom)
Valor=Valor - 10
If Valor>0 Then
dw_1.Object.DataWindow.Zoom=Valor
Else
Beep(2)
End If

4. Botón Imprimir (el que ya sabemos)
long job
job = PrintOpen( )
PrintDataWindow(job, dw_1)
PrintClose(job)

Nota: Al menos a mi me funcionó en PB 8.03
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