cancela la impresión desde printersetup()

[dobfivewin]

Hola estimados

Se puede cancela la impresión desde printersetup() (para seleccionar una impresora) al colocar CANCELAR

Gracias

David
Argentina

[dobfivewin]

Listo...

printersetup() si se coloca "Cancelar" devuelve 0 (cero)

Igualmente gracias

David
argentina

[ICO]

o invés de PrinterSetup() coloque assim;

Code: Select all

If GETPRINTDC() == 0 
 msginfo("A Impressao será cancelada ","::..Aviso")
 Return .f.
Endif
 

Espero ter ajudado..

Abraços..

[JOSEMAR]

hola colegas,
yo he tratado de hacerlo en distintos reslises del fwh y no me funciona , pense que con la v9.07 se prodria corregir
pero no ,me mando dos veses el cuadro de dialogo de la impresora , tanto al cancelar como al aceptar.
haber si alguein ya lo tiene intalado se lo agradeceriamos mucho.

ha yo lo estoy haciendo en vista no se si tenga algo que ver, pero en xp tampoco me funcionaba.

[ICO]

hola colegas,
yo he tratado de hacerlo en distintos reslises del fwh y no me funciona , pense que con la v9.07 se prodria corregir
pero no ,me mando dos veses el cuadro de dialogo de la impresora , tanto al cancelar como al aceptar.
haber si alguein ya lo tiene intalado se lo agradeceriamos mucho.

ha yo lo estoy haciendo en vista no se si tenga algo que ver, pero en xp tampoco me funcionaba.

------------------------------------------------------------------------
Lo siento .. no entiendo, usted. esta diciendo que el ejemplo anterior no está funcionando? es?
Uso desde Fw-Clipper hasta 9:04 y funciona a la perfección ..

Lo sentimos qq error en español

[Lautaro]

Hola,

Yo utilizo esto para seleccionar la impresora :

Code: Select all

function selecimpresora()
local hdc
local cimpresora 

hDC := GetPrintDC( GetActiveWindow() )
      if hDC != 0
         cimpresora := prnGetname()
      endif
      DeleteDC(hDC)
      IF cImpresora=NIL
         cImpresora:=""
      ENDIF
 
return cimpresora

 

Si el retorno de la function es "" entonces selecciono cancelar o no hay impresoras instaladas.

Atte.,
Lautaro Moreira

[ICO]

Lautaro..
Tente assim;

Code: Select all

hDC := GetPrintDC( GetActiveWindow() )
      if hDC == 0
         cImpressoras := prnGetname()
 MSGINFO("Impressão cancelada")
Return .f.
      endif
 

Deve Funcionar do jeito que vc. tá querendo.. teste ai.

Abraços..

[Pedro]

Yo he usado esto en algunas ocasiones, cuando en algunos reports sé que el usuario puede cancelar la impresión.

Code: Select all

FUNCTION REPORT(nParam....)
Local....
Local...
Local nSw

       nSw := PrinterSetup()
       If nSw == 0
          MsgInfo("Impresión cancelada...")
          Return nil
      EndIf
Resto del report...........
 

Si PrinterSetup me devuelve cero es que han pulsado cancelar, y cancelo el report.