neto_23 Posted September 11, 2012 Report Share Posted September 11, 2012 estou criando arquivo pdf via impressão: gostaria de saber como definir a impressora padrão para pdfcreator caso ela não esta padrão e retornar a impressora padrão para anterior se ela não estiver padrão.... veja o meu codigo vIMP1 := PrnGetName() cPort := PrnGetPort() vIMP2 := "PDFCreator" PrnSetDefault( vIMP2, 'pdfcmon' ) Function PrnSetDefault( cName, cPort ) LOCAL cStr := "" /* cStr -> "Name, Driver, Port" */ cStr := cName + "," + PrnGetDrive( cName ) + "," + cPort WriteProfString( "Windows", "Device", cStr ) SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, "Windows") SysRefresh() return nil id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ; Quote Link to comment Share on other sites More sharing options...
neto_23 Posted September 11, 2012 Author Report Share Posted September 11, 2012 estou criando arquivo pdf via impressão: gostaria de saber como definir a impressora padrão para pdfcreator caso ela não esta padrão e retornar a impressora padrão para anterior se ela não estiver padrão.... veja o meu codigo vIMP1 := PrnGetName() cPort := PrnGetPort() vIMP2 := "PDFCreator" PrnSetDefault( vIMP2, 'pdfcmon' ) Function PrnSetDefault( cName, cPort ) LOCAL cStr := "" /* cStr -> "Name, Driver, Port" */ cStr := cName + "," + PrnGetDrive( cName ) + "," + cPort WriteProfString( "Windows", "Device", cStr ) SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, "Windows") SysRefresh() return nil id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ; Quote Link to comment Share on other sites More sharing options...
fluna Posted September 11, 2012 Report Share Posted September 11, 2012 Ver preview em dicas xharbour 0.99.50 (simplex); fwh6.2(free),hbmake,Qedit(dos;PspPad Editor Quote Link to comment Share on other sites More sharing options...
aferra Posted September 11, 2012 Report Share Posted September 11, 2012 Bom dia. tente desta forma cPrinterOld := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", ) SysRefresh() PrinterInit() :hDC := GetPrintDefault( GetActiveWindow() ) //Se vc estiver dentro do PREVIEW //Retorna a impressora original WriteProfString( "windows", "device", cprinterOld ) PrinterInit() SysRefresh() 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...
neto_23 Posted September 11, 2012 Author Report Share Posted September 11, 2012 obrigado pela dica funcionou...grato fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ; 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.