Eduardo, como vai? Obrigado pela dica, mas após o comando rel_Etiq.PRINT; eu não consigo estabelecer um contador. Mesmo dentro dos eventos do rel_etiq (Quickreport) nem na procedure anteriormente citada. Desculpe, mas Não consegui captar.
Abraços. José de Moura --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]> escreveu > Vc quer o total que ele já imprimiu ou o total que ele esta imprimindo > naquele momento? > > Se for o primeiro caso, coloque um campo na tabela integer e crie um > somat´roio pra ele a cada etiqueta impressa > > Se for no segundo, faça um contador no ato da impressão > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] > nome de jmourajr2000 > Enviada em: terça-feira, 6 de dezembro de 2005 14:59 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Numero de Copias - Usando QuickReport > > > Caros amigos, boa tarde! > > Por favor, Preciso incluir em um aplicativo desenvolvido, a seguinte > situação: > > Utilizo para imprimir etiquetas(usando o QuickReport) a seguinte > instrução: > > var MODELO : String; > begin > MODELO := dmPecas.tblPecas.FieldByName('MODELO').AsString; > If not assigned(rel_Etiq) then > rel_Etiq := Trel_Bar.create(Application); > rel_Etiq.Query1.Close; > rel_Etiq.Query1.ParamByName('MODEL').AsString := MODELO; > rel_Etiq.Query1.Open; > rel_Etiq.PrinterSettings.Copies := StrToInt (NumEtiqs.Text); > rel_Etiq.Print; > end; > > Sendo que no componente NumEtiqs eu determino a quantidade de > etiquetas a serem impressas(Até ai tudo OK). > Mas agora o Cliente necessita que eu inclua a quantidade de > etiquetas impressas(esta etiqueta é somente 1(uma) por pagina) em > Real-Time, ou seja, a cada copia impressa deverá ser sinalizado o > numero de etiquetas impressas. > > Já quebrei a cabeça e ainda não obtive resultados. > > Alguem poderia me ajudar. > > Agradeço muito de ante-mão. > > Abraços a todos. > > José de Moura > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > Yahoo! Grupos, um serviço oferecido por: > PUBLICIDADE > > > > > ------------------------------------------------------------------- --------- > -- > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo!. > > > > __________ NOD32 1.1313 (20051206) Information __________ > > This message was checked by NOD32 antivirus system. > http://www.nod32.com > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
