TPrinter

[Xevi]

Ignacio,
Siguiendo un Hilo, del Foro Beta,...
> Para hacer lo que pides hay que lanzar UNA impresión para Preview y OTRA
> para la impresora deseada. Es decir generar el listado DOS veces
> realmente.
> Y así es como lo hace Word seguramente. En mi opinión es un error hacerlo
> así teniendo en cuenta que el listado puede ser muy largo y que muchas
> veces
> la confección de listados pueden tener mucho trabajo por detras.
Pero en cualquier caso ...
Si la manera de crear un listado/preview es así...
Printer:lPreview := .T.
Printer:lPreviewModal := .T.
Printer:nPreviewShowMode := smMAXIMIZE
if Printer:Run()
Printer:nOrientation := DMORIENT_PORTRAIT
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
Printer:oCanvas:TextRect( { 100, 100, 500, 150 }, "Texto de Prueba" )
Printer:EndPage()
Printer:EndDoc()
Printer:Preview()
Endif
Printer:Run()... ¿antes del Preview???
No me cuadra¿?.
En mi opinión, el Preview lo debería de construir con la impresora
PREDETERMINADA, y el Preview nos debería dejar la opción de imprimir en
cualquier impresora instalada en nuestro sistema operativo.
Sinó,... ¿de que me sirve el diálogo de selección de impresora decirle que
me imprima SOLO la página 2???
O... ¿que me imprima en APAISADO???
O... todas las propiedades que podamos "escojer" en el diálogo que se lanza
con Printer:Run(), si igualmente en nuestra confección de listado las vamos
a hacer como hayamos definido desde nuestra confección desde programa.
> En cualquier caso esa misma funcionalidad la puedes conseguir
> trabajandotelo
> un poco, modificando el preview para que en retorno te diga sobre que
> impresora se desea volver a imprimir. Si estás interesado en hacerlo me lo
> dices.
Si no creeis que el Preview se deba de modificar para que trabaje de esta
manera, SI, me interesa y agradecería TODA la ayuda que me podais prestar
para que pueda conseguir este entorno de trabajo de impresión, con el
Preview.
Confeccionar (con impresora predeterminada)
Visualizar
Seleccionar (Impresora, Páginas, Propiedades Impresora...)
Imprimir (Si o No)
Gracias.
Un Saludo,
Xevi.

[ignacio]

Xevi,
> Printer:Run()... ¿antes del Preview???
> No me cuadra¿?.
> En mi opinión, el Preview lo debería de construir con la impresora
Printer:Run() lanza el diálogo estándar de impresión que te permite elegir
impresora y páginas. Dicho diálogo además crea un HDC para imprimir, lo que
significa que relamente crea un nuevo documento de impresión, es decir, es
equivalente a un StartDoc.
En ningún momento se ha dicho que sea un imperativo llamar a Printer:Run()
para imprimir, siempre puedes utilizar directamente la impresora por
defecto, o incluso cambiar de impresora con la propiedad
Printer:nPrinterIndex.
Como te dije en la anterior ocasión seleccionar la impresora, es como
seleccionar un lienzo donde pintar, y es imposible pintar sin un lienzo, no
todos los lienzos son iguales, pero sin embargo, es posible que se parezcan
bastante. Por dicho motivo, y siguiendo tus peticiones hemos incorporado en
el Preview la opción de imprimir a través de cualquier impresora. Pero por
favor no me digas que cuando el preview cambias a landscape un listado que
generastes en portrarit sale mal, pues soy capaz de quitar la nueva opción
;-)
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:43573f44$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Ignacio,
>
> Siguiendo un Hilo, del Foro Beta,...
>
>> Para hacer lo que pides hay que lanzar UNA impresión para Preview y OTRA
>> para la impresora deseada. Es decir generar el listado DOS veces
>> realmente.
>> Y así es como lo hace Word seguramente. En mi opinión es un error hacerlo
>> así teniendo en cuenta que el listado puede ser muy largo y que muchas
>> veces
>> la confección de listados pueden tener mucho trabajo por detras.
>
>
> Pero en cualquier caso ...
> Si la manera de crear un listado/preview es así...
>
> Printer:lPreview := .T.
> Printer:lPreviewModal := .T.
> Printer:nPreviewShowMode := smMAXIMIZE
>
> if Printer:Run()
> Printer:nOrientation := DMORIENT_PORTRAIT
> Printer:StartDoc()
> Printer:oCanvas:nMapMode := mmHIMETRICS
> Printer:StartPage()
> Printer:oCanvas:TextRect( { 100, 100, 500, 150 }, "Texto de Prueba" )
> Printer:EndPage()
> Printer:EndDoc()
> Printer:Preview()
> Endif
>
> Printer:Run()... ¿antes del Preview???
> No me cuadra¿?.
> En mi opinión, el Preview lo debería de construir con la impresora
> PREDETERMINADA, y el Preview nos debería dejar la opción de imprimir en
> cualquier impresora instalada en nuestro sistema operativo.
> Sinó,... ¿de que me sirve el diálogo de selección de impresora decirle que
> me imprima SOLO la página 2???
> O... ¿que me imprima en APAISADO???
> O... todas las propiedades que podamos "escojer" en el diálogo que se
> lanza con Printer:Run(), si igualmente en nuestra confección de listado
> las vamos a hacer como hayamos definido desde nuestra confección desde
> programa.
>
>
>> En cualquier caso esa misma funcionalidad la puedes conseguir
>> trabajandotelo
>> un poco, modificando el preview para que en retorno te diga sobre que
>> impresora se desea volver a imprimir. Si estás interesado en hacerlo me
>> lo
>> dices.
>
>
> Si no creeis que el Preview se deba de modificar para que trabaje de esta
> manera, SI, me interesa y agradecería TODA la ayuda que me podais prestar
> para que pueda conseguir este entorno de trabajo de impresión, con el
> Preview.
>
> Confeccionar (con impresora predeterminada)
> Visualizar
> Seleccionar (Impresora, Páginas, Propiedades Impresora...)
> Imprimir (Si o No)
>
> Gracias.
>
>
> Un Saludo,
> Xevi.
>
>
>
>

[Xevi]

Ignacio,
> En ningún momento se ha dicho que sea un imperativo llamar a Printer:Run()
> para imprimir, siempre puedes utilizar directamente la impresora por
> defecto, o incluso cambiar de impresora con la propiedad
> Printer:nPrinterIndex.
Era una pregunta que hacía... ¿antes del Preview???
Entendido que no es necesario lanzar el diálogo de impresoras.
> bastante. Por dicho motivo, y siguiendo tus peticiones hemos incorporado
> en el Preview la opción de imprimir a través de cualquier impresora. Pero
> por favor no me digas que cuando el preview cambias a landscape un listado
> que generastes en portrarit sale mal, pues soy capaz de quitar la nueva
> opción
El cambio de impresora de salida...
¿Esta incorporado ya en el Preview de la PR5a???
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:4357477e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> Printer:Run()... ¿antes del Preview???
>> No me cuadra¿?.
>> En mi opinión, el Preview lo debería de construir con la impresora
>
> Printer:Run() lanza el diálogo estándar de impresión que te permite elegir
> impresora y páginas. Dicho diálogo además crea un HDC para imprimir, lo
> que significa que relamente crea un nuevo documento de impresión, es
> decir, es equivalente a un StartDoc.
>
> En ningún momento se ha dicho que sea un imperativo llamar a Printer:Run()
> para imprimir, siempre puedes utilizar directamente la impresora por
> defecto, o incluso cambiar de impresora con la propiedad
> Printer:nPrinterIndex.
>
> Como te dije en la anterior ocasión seleccionar la impresora, es como
> seleccionar un lienzo donde pintar, y es imposible pintar sin un lienzo,
> no todos los lienzos son iguales, pero sin embargo, es posible que se
> parezcan bastante. Por dicho motivo, y siguiendo tus peticiones hemos
> incorporado en el Preview la opción de imprimir a través de cualquier
> impresora. Pero por favor no me digas que cuando el preview cambias a
> landscape un listado que generastes en portrarit sale mal, pues soy capaz
> de quitar la nueva opción
>
> Un saludo,
>
>
> "Xevi" <xevicomas@terra.es> escribió en el mensaje
> news:43573f44$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Ignacio,
>>
>> Siguiendo un Hilo, del Foro Beta,...
>>
>>> Para hacer lo que pides hay que lanzar UNA impresión para Preview y OTRA
>>> para la impresora deseada. Es decir generar el listado DOS veces
>>> realmente.
>>> Y así es como lo hace Word seguramente. En mi opinión es un error
>>> hacerlo
>>> así teniendo en cuenta que el listado puede ser muy largo y que muchas
>>> veces
>>> la confección de listados pueden tener mucho trabajo por detras.
>>
>>
>> Pero en cualquier caso ...
>> Si la manera de crear un listado/preview es así...
>>
>> Printer:lPreview := .T.
>> Printer:lPreviewModal := .T.
>> Printer:nPreviewShowMode := smMAXIMIZE
>>
>> if Printer:Run()
>> Printer:nOrientation := DMORIENT_PORTRAIT
>> Printer:StartDoc()
>> Printer:oCanvas:nMapMode := mmHIMETRICS
>> Printer:StartPage()
>> Printer:oCanvas:TextRect( { 100, 100, 500, 150 }, "Texto de Prueba" )
>> Printer:EndPage()
>> Printer:EndDoc()
>> Printer:Preview()
>> Endif
>>
>> Printer:Run()... ¿antes del Preview???
>> No me cuadra¿?.
>> En mi opinión, el Preview lo debería de construir con la impresora
>> PREDETERMINADA, y el Preview nos debería dejar la opción de imprimir en
>> cualquier impresora instalada en nuestro sistema operativo.
>> Sinó,... ¿de que me sirve el diálogo de selección de impresora decirle
>> que me imprima SOLO la página 2???
>> O... ¿que me imprima en APAISADO???
>> O... todas las propiedades que podamos "escojer" en el diálogo que se
>> lanza con Printer:Run(), si igualmente en nuestra confección de listado
>> las vamos a hacer como hayamos definido desde nuestra confección desde
>> programa.
>>
>>
>>> En cualquier caso esa misma funcionalidad la puedes conseguir
>>> trabajandotelo
>>> un poco, modificando el preview para que en retorno te diga sobre que
>>> impresora se desea volver a imprimir. Si estás interesado en hacerlo me
>>> lo
>>> dices.
>>
>>
>> Si no creeis que el Preview se deba de modificar para que trabaje de esta
>> manera, SI, me interesa y agradecería TODA la ayuda que me podais prestar
>> para que pueda conseguir este entorno de trabajo de impresión, con el
>> Preview.
>>
>> Confeccionar (con impresora predeterminada)
>> Visualizar
>> Seleccionar (Impresora, Páginas, Propiedades Impresora...)
>> Imprimir (Si o No)
>>
>> Gracias.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>>
>>
>
>
>

[ignacio]

Xevi,
> El cambio de impresora de salida...
> ¿Esta incorporado ya en el Preview de la PR5a???
No, estará en la PR6 que saldrá dentro de muy poco.
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:[email=43574b1e@ozsrvnegro.ozlan.local...]43574b1e@ozsrvnegro.ozlan.local...[/email]
>
> Ignacio,
>
>> En ningún momento se ha dicho que sea un imperativo llamar a
>> Printer:Run() para imprimir, siempre puedes utilizar directamente la
>> impresora por defecto, o incluso cambiar de impresora con la propiedad
>> Printer:nPrinterIndex.
>
> Era una pregunta que hacía... ¿antes del Preview???
> Entendido que no es necesario lanzar el diálogo de impresoras.
>
>> bastante. Por dicho motivo, y siguiendo tus peticiones hemos incorporado
>> en el Preview la opción de imprimir a través de cualquier impresora. Pero
>> por favor no me digas que cuando el preview cambias a landscape un
>> listado que generastes en portrarit sale mal, pues soy capaz de quitar la
>> nueva opción
>
> El cambio de impresora de salida...
> ¿Esta incorporado ya en el Preview de la PR5a???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:4357477e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Xevi,
>>
>>> Printer:Run()... ¿antes del Preview???
>>> No me cuadra¿?.
>>> En mi opinión, el Preview lo debería de construir con la impresora
>>
>> Printer:Run() lanza el diálogo estándar de impresión que te permite
>> elegir impresora y páginas. Dicho diálogo además crea un HDC para
>> imprimir, lo que significa que relamente crea un nuevo documento de
>> impresión, es decir, es equivalente a un StartDoc.
>>
>> En ningún momento se ha dicho que sea un imperativo llamar a
>> Printer:Run() para imprimir, siempre puedes utilizar directamente la
>> impresora por defecto, o incluso cambiar de impresora con la propiedad
>> Printer:nPrinterIndex.
>>
>> Como te dije en la anterior ocasión seleccionar la impresora, es como
>> seleccionar un lienzo donde pintar, y es imposible pintar sin un lienzo,
>> no todos los lienzos son iguales, pero sin embargo, es posible que se
>> parezcan bastante. Por dicho motivo, y siguiendo tus peticiones hemos
>> incorporado en el Preview la opción de imprimir a través de cualquier
>> impresora. Pero por favor no me digas que cuando el preview cambias a
>> landscape un listado que generastes en portrarit sale mal, pues soy capaz
>> de quitar la nueva opción
>>
>> Un saludo,
>>
>>
>> "Xevi" <xevicomas@terra.es> escribió en el mensaje
>> news:43573f44$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>>
>>> Ignacio,
>>>
>>> Siguiendo un Hilo, del Foro Beta,...
>>>
>>>> Para hacer lo que pides hay que lanzar UNA impresión para Preview y
>>>> OTRA
>>>> para la impresora deseada. Es decir generar el listado DOS veces
>>>> realmente.
>>>> Y así es como lo hace Word seguramente. En mi opinión es un error
>>>> hacerlo
>>>> así teniendo en cuenta que el listado puede ser muy largo y que muchas
>>>> veces
>>>> la confección de listados pueden tener mucho trabajo por detras.
>>>
>>>
>>> Pero en cualquier caso ...
>>> Si la manera de crear un listado/preview es así...
>>>
>>> Printer:lPreview := .T.
>>> Printer:lPreviewModal := .T.
>>> Printer:nPreviewShowMode := smMAXIMIZE
>>>
>>> if Printer:Run()
>>> Printer:nOrientation := DMORIENT_PORTRAIT
>>> Printer:StartDoc()
>>> Printer:oCanvas:nMapMode := mmHIMETRICS
>>> Printer:StartPage()
>>> Printer:oCanvas:TextRect( { 100, 100, 500, 150 }, "Texto de Prueba" )
>>> Printer:EndPage()
>>> Printer:EndDoc()
>>> Printer:Preview()
>>> Endif
>>>
>>> Printer:Run()... ¿antes del Preview???
>>> No me cuadra¿?.
>>> En mi opinión, el Preview lo debería de construir con la impresora
>>> PREDETERMINADA, y el Preview nos debería dejar la opción de imprimir en
>>> cualquier impresora instalada en nuestro sistema operativo.
>>> Sinó,... ¿de que me sirve el diálogo de selección de impresora decirle
>>> que me imprima SOLO la página 2???
>>> O... ¿que me imprima en APAISADO???
>>> O... todas las propiedades que podamos "escojer" en el diálogo que se
>>> lanza con Printer:Run(), si igualmente en nuestra confección de listado
>>> las vamos a hacer como hayamos definido desde nuestra confección desde
>>> programa.
>>>
>>>
>>>> En cualquier caso esa misma funcionalidad la puedes conseguir
>>>> trabajandotelo
>>>> un poco, modificando el preview para que en retorno te diga sobre que
>>>> impresora se desea volver a imprimir. Si estás interesado en hacerlo me
>>>> lo
>>>> dices.
>>>
>>>
>>> Si no creeis que el Preview se deba de modificar para que trabaje de
>>> esta manera, SI, me interesa y agradecería TODA la ayuda que me podais
>>> prestar para que pueda conseguir este entorno de trabajo de impresión,
>>> con el Preview.
>>>
>>> Confeccionar (con impresora predeterminada)
>>> Visualizar
>>> Seleccionar (Impresora, Páginas, Propiedades Impresora...)
>>> Imprimir (Si o No)
>>>
>>> Gracias.
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>