Problema con lHidePrintToFile y lPrintToFile

[jrcpoli-quitar]

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

[jlalin]

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

[jrcpoli-quitar]

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

[jrcpoli-quitar]

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.

[jrcpoli-quitar]

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

[jlalin]

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