Qual o erro que dá... o que acontece ?? Não aparece nd na tela ??
From: Ioney Hotmail
Sent: Wednesday, May 28, 2008 4:55 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] RDPrint3.0
Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
finalizando uma programa de contabilidade desenvolvido em Delphi com Banco de
Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente ai
que o bicho ta pegando, estou usando o componente RDPrint e nao to conseguindo
fazer com que meu relatorio seja impresso...o codigo eh esse deem uma olhadinha
e vejam se encontram algum erro ok? aguardo retorno desesperado!!
procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
var vTexto, vApagaCaracter : String;
begin
DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
DtaModulo.RDprint1.Abrir;
vPagina := 1;
vrow := 80;
if not DtaModulo.RDprint1.SETUP then
exit;
DtaModulo.qryPadrao.Close;
vSelect := 'Select * from PlanoContas where Cliente = ' + IntToStr(yCodCliente);
vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
DtaModulo.qryPadrao.Open;
DtaModulo.qryPadrao.Last;
vQteReg := DtaModulo.qryPadrao.RecordCount;
DtaModulo.qryPadrao.First;
while not DtaModulo.qryPadrao.Eof do
begin
zProgresso01(vQteReg,'AGUARDE...');
zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
if zCabRel('PLANO DE CONTAS', '',1) then
begin
DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO DV',[normal]);
DtaModulo.RDprint1.ImpF(zRow(1),1,'-------------------
------------------------------------------ ------------- --',[normal]);
end;
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
[normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
vApagaCaracter:= '00000'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
if Length(vApagaCaracter) > 6 then
vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
DtaModulo.RDprint1.impF(zRow(1 - 1),79,
Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
DtaModulo.qryPadrao.Next;
end;
vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
vTexto := vTexto + zReplicate('-',75-length(vTexto));
DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
DtaModulo.RDprint1.OpcoesPreview.Preview := True;
DtaModulo.RDprint1.Fechar;
zProgresso02;
DtaModulo.qryPadrao.Close;
end;
[As partes desta mensagem que não continham texto foram removidas]
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3143 (20080529) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
