Eder

Ok..Jonas..mas não consegui...trazer o entendimento deste exemplo do Micheus..para esta solução que mencionei... o que eu fico entrigado é porque este botão do printersetup do quick fica desabilitado... tentei assim como abaixo e deveria funcionar...porem não funciona.. procedure AbreRelatorio(FileName:string); var QRPrinter: TQRPrinter; begin if FileExists(FileName) then begin QRPrinter := TQRPrinter.Create; try QRPrinter.Load(FileName); if Printer.Orientation = poPortrait then else QRPrinter.Orientation := poLandscape; QrPrinter.PrintSetup; QRPrinter.Print; repeat Application.HandleMessage; until not QRPrinter.ShowingPreview; finally QRPrinter.Free; end; end; end; usei estes codigos: QrPrinter.PrintSetup; QRPrinter.Print; que no caso deveria funcionar pois o QrPrinter aceita o codigo e não dá erro algum....simplismente a Tela de PrintSetup não aparece, já vai direto para o Print e manda imprimir na impressora padrão. Teria que ter uma maneira mais simples de fazer funcionar...ai ficaria show de bola... bom..mesmo assim valeu a força. Grato

Jonas...testei a sua dica...porem não funciona.. na hora no botão quando aparece o setup ...ele até altera....mas quando abre o preview que é clickado no botão de imprimir ai parece que ele volta ao estado padrão do windows...e manda imprimir na impressora padrão do windows... pareque que o quickreport pega de la.... Não teria como habilitar o botão do proprio quickreport? grato, Abraço

Ola..Jonas.. Acabei descobrindo um pequeno probleminha na visualização do qrp. Seguinte...depois de visualizado o qrp(preview), notei que que o botão do PRINTER SETUP ficou visible=false Parece que o código desabilita este botão ou não habilita, mas neste caso é um botão necessário, pois como temos muitas impressoras em rede, e geralmente preciso que seja impresso em impressa na rede e não local. teria como fazer tornar visivel este botão(habilitar)...tentei mecher no seu codigo codigo mas não objtive êxito. muito Grato Eder

Ok...JOnas esta dica você já tinha me dado um tempo atraz, mas eu precisava trabalhando com o combobox, pois eu teria que fazer uma verificação antes e só permitir que o vendedor xxxx tivesse acesso ao seu relatorio e não aos demais.. Partindo da sua ideia e da sua procedure fiz assim: Var Vendedor, Recebe : String; begin Vendedor:=ComboBox2.text; If Vendedor = '' then Begin showmessage('Selecione o Vendedor'); Combobox2.setfocus; exit; end else {verifica se existe arquivo gerado} If FileExists (ExtractFilePath(Application.ExeName)+'REL\'+Vendedor+'.QRP') then //verificar o attachment0 {0} begin MessageDlg('Este Vendedor já possui Relatório PRONTO. Click em Ok para Visualizar.', mtInformation, [mbOk],0); AbreRelatorio((Application.ExeName)+'REL\'+VENDEDOR+'.QRP'); Recebe:=(ExtractFilePath(Application.ExeName)+'\REL\'+VENDEDOR+'.QRP'); AbreRelatorio(Recebe); Exit; End .....demais codigos ai deu certo..depois de selecionado o vendedor no combobox....clikando no botão já abre o relatorio do vendedor selecionado..ficou bom..era o que eu precisava. muito Grato a ajuda. Grande Abraço :D

Ola.. tenho vários relatorios numa pasta com salvos extensão QRP Cada relatorio é o nome de um vendedor. então tem o relatorio, joao.qrp, mario.qrp e assim por diante. O que eu queria é claro se for possivel...é o vendedor selecionar no combobox seu nome e no lado um botão com o seguinte codigo: procedure TForm1.Button1Click(Sender: TObject); Var Vendedor:string; begin vendedor:=combobox1.text; If FileExists (ExtractFilePath(Application.ExeName)+'REL\'+Vendedor+'.QRP') then //verificar o vendedor se existe rel. pronto begin MessageDlg('Este Cliente já possui relatório PRONTO. Click em Ok para Visualizar.', mtInformation, [mbOk],0); ExecFile(ExtractFilePath(Application.ExeName)+'REL\'+VENDEDOR+'.QRP'); Exit; End else begin MessageDlg('Este Cliente Não possui relatório PRONTO.', mtInformation, [mbOk],0); end; end; o problema é que ele carrega um aplicativo que tenho aqui associado a extesão QRP ....e depois tem que clickar em outro botão e depois visualizar o relatorio...é muito opção. Mas eu gostaria que lá no proprio programa depois de escolher o nome e clickar no botão o relatorio fosse visualizado. Tem alguma maneira de fazer funcionar desta forma? tentei umas dicas aqui..e não ta funcionando. Grato

Ola.. Tentei achar no Thunderbird uma opção para trabalhar com papel carta...tipo tem no outlook express.....ou seja eu monto uma pagina html e depois eu redereciono esta pagina para o correio eletronico, ai quando eu clicko em nova mensagem ele já monta automaticamente como este papel carta personalizado. Será que tem esta opção no Thunderbird? procurei e não achei. :blush: Grato

Ok.. valeu..Amigo. Excelente tutorial.. muito Grato Pelas Dicas. :)

valeu..Amigo. muito Grato Pelas Dicas. :)

Ola.. Gostaria de por tags para buscadores tipo o Google. eu tenho uma site que é chamado pelo index.asp neste index.asp tem um rederecionamento para a pagina home.asp <% response.redirect "home/home.asp" %> <p>&nbsp;</p> No caso eu teria que adpatar algo assim com tags para os buscadores acharem meu site: <html> <head> <title>Casa Hobby Online</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="robots" content="INDEX"> <meta name="Language" content="PT-BR"> <meta name="keywords" content="Casa Hobby, Casa Hobby Online, Aeromodelismo, Modelismo, Nautimodelismo, Ferreomodelismo, Automodelismo, Aero, Auto, Ferreo, Nauti, casahobby, casa hobby, casa hobby online"> <meta name="description" content="Aqui você encontra tudo para modelismo. Aero, Auto, Ferreo, Nauti e tudo em acessórios."> </head> [...] </html> A minha duvida é a seguinte... as tags(tipo acima) eu ensiro aonde...na index.asp ou home.asp(rederecionado) ou em todas as paginas do site?? :blush: Grato

Ola.. O que quer dizer cada item destes que é colocado no Content? INDEX, FOLLOW, NOINDEX, NOFOLLOW e ALL Grato

é...infelizmente não funcinou... mas valeu..a intenção :) valeu...Abraço

Outra opção, poderia ser permitir que a tecla continuasse sendo processada quando o componente se tratar deste em questão, ou seja, você não mudaria o valor de Key para #0 (também tem que testar, pois não estou 100% certo de que funcionaria como o esperado). testei assim: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then Begin //Key := #0; Perform(WM_NextDlgCtl, 0, 0); End; end; Mesmo assim...não deu certo... a única maneira de funcionar é sem este código acima ou seja sem trabalhar com enter, ai sim sem este codigo acima e usando o Tab funciona como gostaria. Mas beleza...deixa quieto...ou usuario trabalha com o enter do jeito que ta ou desabilito o enter e trabalha com o Tab e funciona da maneira como mencionado no tópico. Grato

Jonas...sim funciona mesmo...só tem um problema. como vou trabalhar com o enter? pois se eu usar a sua dica....tenho que desabilitar este codigo abaixo para trabalhar com o enter procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then Begin Key := #0; Perform(WM_NextDlgCtl, 0, 0); End; end; Não posso desabilitar enter...tens alguma dica para poder trabalhar com os dois processos? Grato

Carinha...não resolveu.. :blush: acho que o usuário vai ter que acustumar mesmo... :blush: Grato

Ok..Resolvido. tinha um B(caracter) aqui: [b]B[/b]unit princip; interface uses Windows, Inifiles, DbiProcs, MMSystem, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ExtCtrls, StdCtrls, DateTimeLabelUnit, Marquee, WebLabel, ButtonComps, Buttons, Db, DBTables, ActnList, ScrollText, RXShell, XiPanel, Grids, DBGrids, bfsDBGridRec, Mask, DBCtrls, XPMenu, XiButton; correto: Unit princip; interface uses Windows, Inifiles, DbiProcs, MMSystem, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ExtCtrls, StdCtrls, DateTimeLabelUnit, Marquee, WebLabel, ButtonComps, Buttons, Db, DBTables, ActnList, ScrollText, RXShell, XiPanel, Grids, DBGrids, bfsDBGridRec, Mask, DBCtrls, XPMenu, XiButton; falou

Ola.. hoje ao abrir o fonte de um prg...acabou vindo uma pergunta e acabei respondando a pergunta do delphi, não me lembro a pergunta....respondi sem querer e agora o programa não funciona mais...da o mesmo erro em tudo que tendo fazer. Erro: ERROR IN MODULE: Declaration Ofd Class TForm5 is missing of incorrect este Form5 é o FormPrincipal. Grato

Ola.. já estou algum tempo para resolver este probleminha... eu uso o DBLookupComboBox para pegar dados de uma tabela e gravar em outra...até aqui beleza... quando o foco entra no DBLookupComboBox e ai aparece a seleção dos dados eu tenho opção para digitador no proprio DBLookupComboBox e dar enter(funciona beleza) e também tenho a opção de abrir com o mouse e selecionar pelas setas no teclado.....aqui é que ta o problema...quando eu uso o mouse funciona perfeito, mas quando uso as setas e dou enter ele não seleciona o registro alias não seleciona nada... Uma vez o Jonas me passou esta dica: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, DBCtrls, Grids, DBGrids, RxLookup; type TForm1 = class(TForm) DBLookupComboBox1: TDBLookupComboBox; Edit1: TEdit; DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; procedure FormKeyPress(Sender: TObject; var Key: Char); procedure FormActivate(Sender: TObject); // procedure MudarComEnter(var Msg: TMsg; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin If not ((Screen.ActiveControl is TCustomMemo) or // se não for um memo (Screen.ActiveControl is TDBLookupComboBox) or // se não for um DbLookup (Screen.ActiveControl is TCustomGrid) or // se não for uma grid o controle mudara com enter (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); //,VK_TAB VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then Begin Key := #0; Perform(WM_NextDlgCtl, 0, 0); End; end; procedure TForm1.FormActivate(Sender: TObject); begin Application.OnMessage := MudarComEnter; end; end. Form1.KeyPreview=true; Ela só funciona..se eu tirar o codigo do enter no OnKeyPress do Form1, neste caso eu teria usar o Tab no lugar no enter, porem não é bem aceito pelos usuarios... Teria como fazer funcionar com a seleção feita pelas setas e em seguida com o enter?? Grato

Ola.. seguinte...descobri o problema... codigo abaixo: <html> <head> <style> <!--A{text-decoration: none} --> a:link {color: #000000;} a:hover {color: #FF0000;} a:active {color: #0000ff;} a:visited {color: #000000;} </style> <title>Pagina Teste</title> </head> <div align="left"> <table border="1"> <tr> <td width="647"> <p align="left"><a href="http://www.ig.com.br">Ig<br> <a href="http://www.pop.com.br">Pop</a><br> <a href="http://www.terra.com.br">Terra<br><b> </b><a href="http://www.uol.com.br">Uol</a></p> </td> </tr> </table> </div> <p align="left"><a href="http://www.ig.com">OK</a></body> </html> Não funcionava porque os links de cima tem o .br do site e o debaixo tem somente o .com...olha que estranho... Não sei porque mas na hora na funcionava no IE, sei lá...as testei no Opera e no FF e funcionou... Não sei se era um bug do IE. mas ta resolvido... Grato t+

Ola..carinha...troquei o codigo mais não funciona. fiz um exemplinho onde a lista de provedores não funciona somente no linck chamado OK. veja o codigo abaixo por favor: <html> <head> <style> <!--A{text-decoration: none} --> a:link {color: #000000;} a:hover {color: #FF0000;} a:active {color: #0000ff;} a:visited {color: #000000;} </style> <title>teste</title> </head> <p align="left"><a href="http://www.ig.com.br"><font face="Verdana" size="1">Ig</font></a><font face="Verdana" size="2"><b><br> </b></font><a href="http://www.pop.com.br"><font face="Verdana" size="1">Pop</font></a><font face="Verdana" size="1"><br> </font><a href="http://www.terra.com.br"><font face="Verdana" size="1">Terra<br></font></a><font face="Verdana" size="2"><b> </b></font><a href="http://www.uol.com.br"><font face="Verdana" size="1">Uol</font></a><font face="Verdana" size="1"><br> </font><font face="Verdana" size="4"><br> </font><p align="left"><font face="Verdana" size="4"><a href="http://">OK</a></font></p> </body> </html> algo esta incorreto mas não sei o que. :blush: Grato

Ola.. Passar o mouse em cima do link e mudar a cor para vermelho. este codigo abaixo..se eu começar uma pagina agora e inseri ele funciona certinho: <style> <!--A{text-decoration: none} --> a:link {color: #000000;} a:hover {color: red;} a:active {color: #0000ff;} a:visited {color: #000000;} </style> ou seja quando passar o mouse em cima fica Vermelho. mas eu tenho já prontas algumas paginas e ai eu insiro este codigo...na pagina e não fica em vermelho, alias não acontece nada agora já tenho outra pagina...que quando passo o mouse em cima do link fica vermelho, mas logo acima tenho outro link dentro de uma table ...ai já não funciona... Este codigo seria para toda a pagina sem exceção né? Minha pagina começa assim: <html> <head> <style> <!--A{text-decoration: none} --> a:link {color: #000000;} a:hover {color: red;} a:active {color: #0000ff;} a:visited {color: #000000;} </style> <meta http-equiv="content-type" content="text/html; charset=x-user-defined"> <meta name="generator" content="Namo WebEditor v4.0"> </head> //<div align="center"><table border="0" cellpadding="0" cellspacing="0"> <tr> <td width="777" colspan="3" background="images/bazul_top.gif"><p align="center"><a href="http://www.terra.com.br" target="_parent"><br> </a><a href="http://www.ig.com.br" target="_parent"><img src="images/logo.gif" width="777" height="36" border="0"></a><br></td> </tr> <tr> Grato

Ola.. também testei assim e funcionou certinho: procedure TForm1.Button1Click(Sender: TObject); begin QrLabel1.caption:=edit1.text; If (QrLabel1.Caption = 'vermelho') then begin Qrlabel1.Font.color:=clred; end else begin Qrlabel1.Font.color:=clblue; end; Quickrep1.Preview; end; Abraço :)

Ola..Jonas Só para Completar caso alguém precise. Eu cima da tua idéia fiz assim: //função para formatar o cnpj Function FormataCNPJ(CNPJ : string): string; begin Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2); end; //função para formatar o CPF Function FormataCPF(CPF : string): string; begin Result :=Copy(CPF,1,3)+'.'+Copy(CPF,4,3)+'.'+Copy(CPF,7,3)+'-'+Copy(CPF,10,2); end; Para Comparar se é CNPJ OU CPF e Chamar: procedure TFormPOCompra.QRDBText13Print(sender: TObject; var Value: String); begin {Formata o CNPJ e CPF} IF (Length(Value)=14) THEN Begin Value := FormataCNPJ(value); end Else Begin Value := FormataCPF(value); End; End; valeu..Carinha...Agradecido. Abraço :D

Ola.. Tenho um QrDbText do Quick que recebe o valor que é um CNPJ(campo tipo numerico). ele aparece assim no relatorio (formato): 82653653000100 mas eu gostaria de por uma maskara ou formar para ficar assim: 82.653.653/0001-00 mas não to conseguindo.... já tentei de vários formas uma delas foi esta: procedure TFormPOCompra.QRDBText13Print(sender: TObject; var Value: String); begin Value := FormatFloat('00.000.000/0000-00',StrToFloat(Query1[QrDBtext13.DataField])); end; mas não funca certo...sai tudo misturado. Grato

Ola.. Camarada Recife... Eu preciso que fica daquela forma que postei, pois alem de capturar o dado (DBLookupComboBox1) ele vai ter que gravar... agora é muito estranho o DBLookupComboBox1 não conseguir pegar o dado porque é numérico...porque como mencionei o campo texto(STRING) ele pega certinho... Ai tentei usar o RxDBLookupCombo da RXLib...e acontece a mesma coisa... Será que é porque o campo é do tipo AUTOENCREMENTO?? Bom vamos ver se alguém teria mais alguma dica...senão vou ter que substuir por algum outro componente. Grato

R.: Ok...entendido. QUOTE R.: valeu...Obrigado :blush: Abraço :)