Jhonas

. esse problema acontece em virtude da maneira como voce cria e destroi o form ... tente assim: procedure TForm1.Button1Click(Sender: TObject); begin try if RPESQ_LISTPECAS= Nil then RPESQ_LISTPECAS:= TRPESQ_LISTPECAS.Create(self); except ShowMessage('Erro na criação do relatório!!'); exit; end; RPESQ_LISTPECAS.PreviewModal; end; abraço

basta fazer uma adaptação desse código às suas necessidades http://scriptbrasil.com.br/forum/index.php?showtopic=167559 abraço

voce precisa ler mais sobre esse assunto http://www.sabereletronica.com.br/secoes/leitura/1179 http://www.cerne-tec.com.br/porta_paralela.pdf http://www.hardware.com.br/comunidade/cont...-porta/1149123/ http://www.cinelformacao.com/tda/files/ud2/ud2cap2p4.htm abraço

Além das respostas dadas a voce no Forum Active delphi http://www.activedelphi.com.br/forum/viewt...87f1c0ed34b9b32 veja essa solução http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=861 abraço

Com esses exemplos ( um complementando o outro ) voce consgue fazer http://www.devmedia.com.br/forum/sobrepor-...2%B4agua/302272 http://forum.imasters.com.br/topic/212535-...-dinamicamente/ http://br.groups.yahoo.com/group/delphi-br/message/98167 abraço

se isso for trabalho de escola, mostre até onde fez para que alguém possa ajuda-lo abraço

exemplo http://www.delphipages.com/forum/showthread.php?t=206712 abraço

versão limitada, refere-se a que esta versão foi limitada ao Delphi 7 Enterprise eu uso esse instalador para os meus programas, quando vou instalar em micros com o sistema Vista ou Windows 7 sem problemas InstallShield 3.5 Service Pack 4 No inicio não é muito facil voce usa-lo, mas com o tempo e um pouco de leitura voce vai descobrir que é tranquilo abraço

ok... agora ficou mais claro então, eu só liguei o QR com a QUERY da tabela... voce vai usar um comando for para varrer o campo fichas dos registros da query creio que voce deva estar usando o campo impresso para jogar o nome no quick report para imprimir a ficha, então o seu controle de impressão será o campo fichas a cada passagem de registro, voce coloca o numero de fichas como controle de cópias dessa ficha seria algo parecido com isso procedure TForm1.Button1Click(Sender: TObject); var i, copias : integer; begin Query1.Active := false; Query1.Active := true; copias := 0; for i := 1 to Query1.RecordCount - 1 do // quantidade de registros na query begin for copias := 1 to Query1fichas.value do // controle das copias - qtde de fichas begin QuickRep1.QRLabel1.caption := Query1Impresso.Value; // nome do impresso QuickRep1.Print; end; end; end; abraço

No CD do delphi 7 vem o Install Shield que monta o instalador do programa para 32/64 bits nele voce vai encontrar os recursos para instalar juntamente com o programa o BDE abraço

amigo, quando peço para mostrar como é impresso, eu quero um exemplo da saida exemplo: CERVEJA..............R$ 3,50 REFRIGERANTE.....R$ 3,50 CHOPP.................R$ 5,00 dai todos os dados que foram passados para a tbl_vendas são impressos quero que voce mostre um exemplo da ficha, para poder te dar uma ideia de como fazer ... entendeu? preciso saber como esta impresso na ficha

verifique se voce esta usando o drive de impressora correto, pois caso não esteja, a impressão ficara diferente a do preview do QR. abraço

exemplo http://www.planetadelphi.com.br/artigo/133...rfil---parte-2/ abraço

Delphi componentes de acesso * BTRVCOMP Native Btrieve components for Delphi. http://www.nomad.ee/btrieve/files/btrvcomp.zip exemplo de uso * BSIMPLE Btrieve wrapper unit with examples. http://www.nomad.ee/btrieve/files/bsimple.zip abraço

preciso que me mostre o que sai no quick report quando manda imprimir

voce já tem o valor no campo fichas ... basta ler os registros e usar os numeros para fazer a impressão obs: dê um exemplo de como seriam essas fichas abraço

voce pode continuar usando o BDE ... mas deve ser para 64 bits se for usar um programa desenvolvido em delphi 7, para ser usado no vista ou windows 7 fiz alguns programas no delphi 7 usando o xp, que rodam perfeitamente no vista e no win7 ... entretanto para acessar o banco de dados via BDE voce deve baixar a versão do BDE 64 bits http://www.tribogeek.com/2011/04/instalar-...ws-7-3264-bits/ OBS: Se quiser usar outro banco, recomendo o MySql versão 5.1 para o windows 7 http://www.windows7download.com/win7-mysql/bcckvklo.html e use o MYSQL-Front para poder gerenciar o banco de dados http://www.softonic.com.br/s/mysql-5.1/windows-7 abraço

leia esse artigo para poder entender a diferença http://www.devmedia.com.br/compilando-em-3...iremonkey/23179 abraço

voce pode usar no evento OnDocumentComplete do webbrowser veja outras formas de uso http://code.google.com/p/delphi-foundation...ryForm.pas?r=46 http://www.bvbcode.com/code/qy1h7lgt-1615511 abraço

essa dúvida já foi respondida a voce em seu outro post http://scriptbrasil.com.br/forum/index.php...st&p=634858 abraço

ok... então vamos a forma padrão de uso do locate primeiro veja que voce esta usando um combobox para passar um parametro para a sua query, então não existe a necessidade de um DBCombobox, a menos que o resultado desse DBCombobox vá fazer parte de alguma outra pesquisa Prov_IB.Active := false; CDS_Prov.Active := false; CDS_Prov.Params[0].AsInteger := codcli; Prov_IB.Active := true; CDS_Prov.Active := true; procedure Tfrmconsultar.btnconsultarClick(Sender: TObject); begin DM.ADOQuerySql.Active := false; DM.ClientDataSet.Active := false; DM.ADOQuerySQL.SQL.CLEAR; DM.ADOQuerySQL.SQL.ADD('select codigo, filial, ip, nomepc, placamae, modelo, processador, placavideo, hd, placasom, memoria, placarede, sistemaop, soquete, setor from componentes_filiais where filial like :filial'); DM.ADOQuerySQL.Parameters.ParamByName('filial').Value:= [b]combobox.text;[/b] DM.ADOQuerySql.Active := true; DM.ClientDataSet.Active := true; end; a partir desse ponto, se a sua query trouxe os registros da seleção, voce poderá ve-los em um dbgrid a partir do registro inicial encontrado... então imagine que a seleção trouxe 100 registros, voce estaria vendo nos seus dbedits os campos do primeiro registro se dentro desses 100 registros voce quer localizar ( locate ) um outro registro, então voce faz uso do locate DM.ClientDataSet.First; DM.ClientDataSet.Locate('codigo', Edit1.text, [loCaseInsensitive, loPartialKey]); para teste coloque esse comando em um botão e faça uso de um componente Edit para digitar o codigo que voce quer encontrar se o codigo for encontrado, automaticamente o ponteiro de registros estará posicionado nesse registro, e nos DBEdits que estão linkados a sua tabela via query será mostrado. OBS: DM.ADOQuerySql.Active := false; DM.ClientDataSet.Active := false; substitui esses comandos ( close e open ) para facilitar o seu entendimento com relação a ativação / desativação da query abraço

OBS: respondido no forum ActiveDelphi abraço

OBS: respondido no forum ActiveDelphi abraço

no quick report o tamanho da pagina é quem controla a ejeção da pagina ... defina as etiquetas para que ocupem o tamanho da pagina ( use um tamanho diferente de A4 ) ou pode tentar imprimir direto Este é um exemplo de como imprimir direto para impressora: procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; i : integer; begin AssignFile(F,'LPT1'); Rewrite(F); i := 0; Writeln(F,'Teste de impressao - Linha 0'); Writeln(F,'Teste de impressao - Linha 1'); Writeln(F,#27#15+'Teste de Impressão - Linha 2'); Writeln(F,'Teste de impressao - Linha 3'); Writeln(F,#27#18+'Teste de Impressão - Linha 4'); Writeln(F,'Teste de impressao - Linha 5'); Writeln(F,#12); // Ejeta a página CloseFile(F); end; abraço

leia esse artigo, vai de dar uma idéia de como fazer http://balaiotecnologico.blogspot.com.br/2...gitais-com.html abraço