Pedro Alcântara Posted October 17, 2002 Report Share Posted October 17, 2002 Tenho um programa em CLIPPER, + gostaria de colocar a opção para escolha de impressoras. E se no PRGS dos relatorios devo alterar, para reconhecer a impressora escolhida... Quem poder me ajudar, Agradeço... E-mail: pajstb@bol.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted October 18, 2002 Report Share Posted October 18, 2002 Pedro, Visite Site: www.dbwide.com.ar e baixe o ca-windows que eles teem. Lá tem exemplos que te ajudarão. Caso não consiga entender, envie-me o módulo, que eu vejo o que posso fazer. Um Clipper abraço. karinhannah@bol.com.br Quote Link to comment Share on other sites More sharing options...
emotta Posted November 25, 2021 Report Share Posted November 25, 2021 Use a funcao abaixo: PrinterSetup() Quote Link to comment Share on other sites More sharing options...
rochinha Posted November 26, 2021 Report Share Posted November 26, 2021 Amiguinhos, FUNCTION GetListPrinters() LOCAL aPrinter LOCAL cPrinter LOCAL nError, hSubKey, nBufSize, nCount LOCAL HKEY_CURRENT_USER := 2147483649 LOCAL HKEY_LOCAL_MACHINE := 2147483650 LOCAL HKEY_CURRENT_CONFIG := 2147483653 LOCAL KEY_ALL_ACCESS := 983139 LOCAL ERROR_SUCCESS := 0 aPrinter := {} cPrinter := Space(256) hSubKey := 0 nBufSize := 256 nCount := 0 nError := -1 nError := RegOpenKeyEx(HKEY_CURRENT_CONFIG,; "System\CurrentControlSet\Control\Print\Printers",; 0, KEY_ALL_ACCESS, @hSubKey) IF nError != 0 return "Erro abrindo RegOpenKeyEx" ENDIF DO WHILE (nError := RegEnumKeyEx(hSubKey, nCount++, @cPrinter, @nBufSize)) == 0 Aadd(aPrinter, Left(cPrinter, nBufSize)) cPrinter := Space(256) nBufSize := 256 ENDDO RegCloseKey(hSubKey) RETURN aPrinter Inclua a função acima em seus .PRGs No ponto em que deseja escolher a impressora coloque: aPortPRN := GetPrinters() for iPortPRN = 1 to len( aPortPRN ) aPortPRN[iPortPRN] := substr( aPortPRN[iPortPRN], 1, at(",",aPortPRN[iPortPRN])-1 ) next // aPortPRNCoz := { "-NENHUMA-" } for iPortPRN = 1 to len( aPortPRN ) aadd( aPrintModel, aPortPRN[iPortPRN] ) aadd( aPortPRNCoz, aPortPRN[iPortPRN] ) next Em um controle combo faça uso da escolha da impressora: REDEFINE COMBOBOX oCbx VAR cPrintModel ITEMS aPrintModel ID 100 OF oDlg Faça o uso do motor de impressão que quiser com as escolhas desejadas: ... cPRNcFile := "C:\TEMP\TEXTO.TXT" cEmiteMotor := "TYPE" case cEmiteMotor = "TYPE" WaitRun( "type " + cPRNcFile + " > " + cPrintModel + " " , 0 ) case cEmiteMotor = "PRINTRAW" WaitRun( "printraw.exe " + cPRNcFile + " " + cPrintModel, 0 ) case cEmiteMotor = "PRINT" WaitRun( "print.exe /D:" + cPrintModel + " " + cPRNcFile, 0 ) case cEmiteMotor = "COPY" .or. cEmiteMotor = "COPYFILE" __CopyFile( cPRNcFile, cPrintModel ) case cEmiteMotor = "COMMAND" .or. cEmiteMotor = "COMMAND.COM" WaitRun( "command.com /c copy /b " + cPRNcFile + " " + cPrintModel + "" , 0 ) ... Onde lê-se GetPrinters troque por GetListPrinters Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 26, 2021 Report Share Posted November 26, 2021 Não entendi. Esta postagem é de 2002, ou eu perdi alguma coisa? Meu Nick ainda era o <Karinha>. E o <Alex2002>, ainda era jovem. kkkkkkkkkkkkkkkkk Quote Link to comment Share on other sites More sharing options...
emotta Posted November 26, 2021 Report Share Posted November 26, 2021 eu fui dar uma zapeada nos primeiros posts e peguei um que não foi dado solução Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 26, 2021 Report Share Posted November 26, 2021 excelente. Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 26, 2021 Report Share Posted November 26, 2021 8 horas atrás, kapiaba disse: Não entendi. Esta postagem é de 2002, ou eu perdi alguma coisa? Meu Nick ainda era o <Karinha>. E o <Alex2002>, ainda era jovem. kkkkkkkkkkkkkkkkk KKKKKK, continuo jovem meu amigo. Só um pouco mais experiente rsrsrsrsrs Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 27, 2021 Report Share Posted November 27, 2021 15 horas atrás, alex2002 disse: KKKKKK, continuo jovem meu amigo. Só um pouco mais experiente rsrsrsrsrs Fala meu baixinho querido. Quantos anos estais agora, 24 anos? Quote Link to comment Share on other sites More sharing options...
alex2002 Posted November 29, 2021 Report Share Posted November 29, 2021 Em 27/11/2021 at 10:37, kapiaba disse: Fala meu baixinho querido. Quantos anos estais agora, 24 anos? Pela altura estou com 16, mas pela idade verdeira 47 rsrsrsrsrs Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted November 29, 2021 Report Share Posted November 29, 2021 Em 27/11/2021 at 10:37, kapiaba disse: Fala meu baixinho querido. Quantos anos estais agora, 24 anos? kkkkk, pensei que nesta linguagem só tinha os tios como no forum internacional e eu também que sou da época do pc 500, do disquete de 8 polegadas que carregava o SO no PC 500 e quando chegou o XT, era o Deus dos pcs e os mainframes ainda eram com fitas. Particulamente me alegro desse forum porque aprendi dBase III e é por isso assim como o corinthiano Kapi, não largo esta minha esposa (linguagem) mas claro, dando umas traídas nela de vez em quando kkkkkkk Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 29, 2021 Report Share Posted November 29, 2021 46 minutos atrás, alex2002 disse: Pela altura estou com 16, mas pela idade verdeira 47 rsrsrsrsrs kkkkkkkkkkkkk, Mas o coração é enorme e de OURO! I love you to. Abraços. 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.