matheush Posted October 10, 2012 Report Share Posted October 10, 2012 Essa Funçao abaixo no getprintdc ao confirmar ou retornar no Ok ou cancelar , o programa é finalizado , obs: uso a metro do fivewin Function FuncImp() Local oradio1,oDlgimp,lsave:=.f.,oprn2 public TipoRel:="M" nordimp=1 Sysrefresh() retornoimp=.t. if GetPrintDC(oWndPrin)==0 retornoimp=.f. return retornoimp endif printer oprn tipimp:=oprn:nLogPixelx() if tipimp<300 TipoRel:="M" elseif tipimp>=299 TipoRel:="J" endif * if msgyesno("Confirma impressora escolhida para iniciar impressão !!!","Pergunta") retornoimp=.t. * else * retornoimp=.f. * endif Sysrefresh() return retornoimp id=code>id=code>No Demais agradeço Matheus Farias - @D_MatheusFarias d.matheusfarias@hotmail.com FHW 10.11/8.04 xHabour 1.1/1.2 Pelles C 6.5 DBFCDX Quote Link to comment Share on other sites More sharing options...
matheush Posted October 10, 2012 Author Report Share Posted October 10, 2012 Essa Funçao abaixo no getprintdc ao confirmar ou retornar no Ok ou cancelar , o programa é finalizado , obs: uso a metro do fivewin Function FuncImp() Local oradio1,oDlgimp,lsave:=.f.,oprn2 public TipoRel:="M" nordimp=1 Sysrefresh() retornoimp=.t. if GetPrintDC(oWndPrin)==0 retornoimp=.f. return retornoimp endif printer oprn tipimp:=oprn:nLogPixelx() if tipimp<300 TipoRel:="M" elseif tipimp>=299 TipoRel:="J" endif * if msgyesno("Confirma impressora escolhida para iniciar impressão !!!","Pergunta") retornoimp=.t. * else * retornoimp=.f. * endif Sysrefresh() return retornoimp id=code>id=code>No Demais agradeço Matheus Farias - @D_MatheusFarias d.matheusfarias@hotmail.com FHW 10.11/8.04 xHabour 1.1/1.2 Pelles C 6.5 DBFCDX Quote Link to comment Share on other sites More sharing options...
aferra Posted October 10, 2012 Report Share Posted October 10, 2012 e qual é o erro/linha que acontece? Um grande Abraço Alessandroid=blue> FW9.07 + xHb121 + CDX Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 10, 2012 Report Share Posted October 10, 2012 Boa Tarde .. Eu Uso assim sem problemas hDCid=red> := GetPrintDC( GetActiveWindow() ) if hDC == 0 id=red> cImpressoras := prnGetname() MSGINFO("Impressão cancelada pelo usuário","..::Impressão") Return .f. endif if oPrn:nLogPixelX()<300 Elseif oPrn:nLogPixelX()>300 End id=code>id=code>Vejase Ajuda.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 10/10/2012 15:28:06 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.