Saludos:
Este código no me funciona cuando quiero que no aparezca el botón para
seleccionar la impresión a un archivo.
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
//:lPrintToFile := .T. // Selecciona la opción "Imprimir a un archivo"
:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
IF !lPaginas
:lNoPageNums := .T.
ENDIF
:lNoSelection := .T.
** Imprime por la Impresora seleccionada
::oCRReport:SelectPrinter("",:DriverName,"")
** Imprimir el listado
::oCRReport:PrintOut(.F.,:nCopies,,StartPageN,StopPageN )
*
ENDIF
*
END
Que estoy haciendo mal.
José R.Castro
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problema con lHidePrintToFile y lPrintToFile
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Problema con lHidePrintToFile y lPrintToFile
José Ramón,
ese código no puede funcionar puesto que las dos propiedades que mencionas
son de TPrintDlg no de TPrinter.
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
:oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
archivo"
:oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
Saludos,
José Lalín
ese código no puede funcionar puesto que las dos propiedades que mencionas
son de TPrintDlg no de TPrinter.
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
:oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
archivo"
:oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
Saludos,
José Lalín
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Problema con lHidePrintToFile y lPrintToFile
El 18/11/2011 20:26, José Ramón Castro Polinio escribió:
> Saludos:
>
> Este código no me funciona cuando quiero que no aparezca el botón para
> seleccionar la impresión a un archivo.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> //:lPrintToFile := .T. // Selecciona la opción "Imprimir a un archivo"
> :lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
> IF !lPaginas
> :lNoPageNums := .T.
> ENDIF
> :lNoSelection := .T.
> ** Imprime por la Impresora seleccionada
> ::oCRReport:SelectPrinter("",:DriverName,"")
> ** Imprimir el listado
> ::oCRReport:PrintOut(.F.,:nCopies,,StartPageN,StopPageN )
> *
> ENDIF
> *
> END
> Que estoy haciendo mal.
>
> José R.Castro
Me contesto yo mismo, debería haber hecho esto:
WITH OBJECT TPrintDlg():New( Self )
*
:lHidePrintToFile := .T.
IF !lPaginas
:lNoPageNums := .T.
ENDIF
:lNoSelection := .T.
IF :Run()
** Imprime por la Impresora seleccionada
::oCRReport:SelectPrinter("",Printer:DriverName,"")
** Imprimir el listado
::oCRReport:PrintOut(.F.,Printer:nCopies,,StartPageN,StopPag eN )
*
ENDIF
*
END
> Saludos:
>
> Este código no me funciona cuando quiero que no aparezca el botón para
> seleccionar la impresión a un archivo.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> //:lPrintToFile := .T. // Selecciona la opción "Imprimir a un archivo"
> :lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
> IF !lPaginas
> :lNoPageNums := .T.
> ENDIF
> :lNoSelection := .T.
> ** Imprime por la Impresora seleccionada
> ::oCRReport:SelectPrinter("",:DriverName,"")
> ** Imprimir el listado
> ::oCRReport:PrintOut(.F.,:nCopies,,StartPageN,StopPageN )
> *
> ENDIF
> *
> END
> Que estoy haciendo mal.
>
> José R.Castro
Me contesto yo mismo, debería haber hecho esto:
WITH OBJECT TPrintDlg():New( Self )
*
:lHidePrintToFile := .T.
IF !lPaginas
:lNoPageNums := .T.
ENDIF
:lNoSelection := .T.
IF :Run()
** Imprime por la Impresora seleccionada
::oCRReport:SelectPrinter("",Printer:DriverName,"")
** Imprimir el listado
::oCRReport:PrintOut(.F.,Printer:nCopies,,StartPageN,StopPag eN )
*
ENDIF
*
END
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Problema con lHidePrintToFile y lPrintToFile
El 18/11/2011 20:54, José Lalín escribió:
> José Ramón,
>
> ese código no puede funcionar puesto que las dos propiedades que
> mencionas son de TPrintDlg no de TPrinter.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> :oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
> archivo"
> :oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
>
> Saludos,
> José Lalín
>
José tienes razón me dí cuenta posteriormente y sin leer tu correo lo
cambié.
Gracias
José R.Castro.
> José Ramón,
>
> ese código no puede funcionar puesto que las dos propiedades que
> mencionas son de TPrintDlg no de TPrinter.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> :oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
> archivo"
> :oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
>
> Saludos,
> José Lalín
>
José tienes razón me dí cuenta posteriormente y sin leer tu correo lo
cambié.
Gracias
José R.Castro.
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Problema con lHidePrintToFile y lPrintToFile
El 18/11/2011 20:54, José Lalín escribió:
> José Ramón,
>
> ese código no puede funcionar puesto que las dos propiedades que
> mencionas son de TPrintDlg no de TPrinter.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> :oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
> archivo"
> :oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
>
> Saludos,
> José Lalín
>
José he probado el código tal como tú lo has puesto y no funciona eso es
lo que me confundió cuando mandé el correo ya que había probado poniendo
la propiedad oPrnDlg
Si funciona tal como lo he puesto en mi respuesta posterior.
José R.Castro
> José Ramón,
>
> ese código no puede funcionar puesto que las dos propiedades que
> mencionas son de TPrintDlg no de TPrinter.
>
> WITH OBJECT TPrinter():New( Self )
> *
> IF :Run()
> *
> :oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
> archivo"
> :oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
>
> Saludos,
> José Lalín
>
José he probado el código tal como tú lo has puesto y no funciona eso es
lo que me confundió cuando mandé el correo ya que había probado poniendo
la propiedad oPrnDlg
Si funciona tal como lo he puesto en mi respuesta posterior.
José R.Castro
Problema con lHidePrintToFile y lPrintToFile
José Ramón,
si miras el código de :Run()/:Setup() verás que si ::oPrnDlg es Nil se crea
un objeto TPrintDlg(). Prueba así:
WITH OBJECT TPrinter():New( Self )
:oPrnDlg := TPrintDlg():Create()
:oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
archivo"
:oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
IF :Run()
Saludos,
José Lalín
si miras el código de :Run()/:Setup() verás que si ::oPrnDlg es Nil se crea
un objeto TPrintDlg(). Prueba así:
WITH OBJECT TPrinter():New( Self )
:oPrnDlg := TPrintDlg():Create()
:oPrnDlg:lPrintToFile := .T. // Selecciona la opción "Imprimir a un
archivo"
:oPrnDlg:lHidePrintToFile := .T. // No visualiza "Imprimir a un archivo"
IF :Run()
Saludos,
José Lalín