Hola estimados
Se puede cancela la impresi贸n desde printersetup() (para seleccionar una impresora) al colocar CANCELAR
Gracias
David
Argentina
Board index FiveWin para Harbour/xHarbour cancela la impresi贸n desde printersetup()
Listo...
printersetup() si se coloca "Cancelar" devuelve 0 (cero)
Igualmente gracias
David
argentina
o inv茅s de PrinterSetup() coloque assim;
Espero ter ajudado..
Abra莽os..
If GETPRINTDC() == 0
msginfo("A Impressao ser谩 cancelada ","::..Aviso")
Return .f.
EndifEspero ter ajudado..
Abra莽os..
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.
SALUDOS, JOSE MARQUEZ
JUAN DIAZ COVARRUBIAS,VERACRUZ ,MEXICO
JUAN DIAZ COVARRUBIAS,VERACRUZ ,MEXICO
JOSEMAR wrote: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
Hola,
Yo utilizo esto para seleccionar la impresora :
Si el retorno de la function es "" entonces selecciono cancelar o no hay impresoras instaladas.
Atte.,
Lautaro Moreira
Yo utilizo esto para seleccionar la impresora :
function selecimpresora()
local hdc
local cimpresora
hDC := GetPrintDC( GetActiveWindow() )
if hDC != 0
cimpresora := prnGetname()
endif
DeleteDC(hDC)
IF cImpresora=NIL
cImpresora:=""
ENDIF
return cimpresoraSi el retorno de la function es "" entonces selecciono cancelar o no hay impresoras instaladas.
Atte.,
Lautaro Moreira
Hola,
Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Lautaro..
Tente assim;
Deve Funcionar do jeito que vc. t谩 querendo.. teste ai.
Abra莽os..
Tente assim;
hDC := GetPrintDC( GetActiveWindow() )
聽 聽 聽 if hDC == 0
聽 聽 聽 聽 聽cImpressoras := prnGetname()
聽MSGINFO("Impress茫o cancelada")
Return .f.
聽 聽 聽 endifDeve Funcionar do jeito que vc. t谩 querendo.. teste ai.
Abra莽os..
Yo he usado esto en algunas ocasiones, cuando en algunos reports s茅 que el usuario puede cancelar la impresi贸n.
Si PrinterSetup me devuelve cero es que han pulsado cancelar, y cancelo el report.
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.
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO