Fórum Quick Reporte como imprimir o registro corrente?? #236756
08/06/2004
0
Ola.
Tenho um botao em um form, com este codigo abaixo, só que ele não esta imprimindo o Registro em que o form esta posicionado, como posso fazer isto?? com que ele imprima o que esta mostrando
Obrigada.
Tenho um botao em um form, com este codigo abaixo, só que ele não esta imprimindo o Registro em que o form esta posicionado, como posso fazer isto?? com que ele imprima o que esta mostrando
Obrigada.
procedure TFrmUsuario.BtImprimeClick(Sender: TObject); begin Application.CreateForm(TRelUsuario, RelUsuario); RelUsuario.PreviewModal; RelUsuario.Destroy; end;
Jis
Curtir tópico
+ 0
Responder
Posts
08/06/2004
M@rk Knopfler
Olá! :D
Você pode filtrar a tabela do relatório antes de sua exibição. Supondo que o Table se chama tblUsuarios e o código seja o campo CodUsuario:
Application.CreateForm(TRelUsuario, RelUsuario);
// Ler o registro atual no formulário
RelUsuario.tblUsuarios.Filter := ´CodUsuario = ´ +
FormUsuarios.tblUsuarios.FieldByName(´CodUsuario´).AsString;
RelUsuario.tblUsuarios.Filtered := True;
RelUsuario.PreviewModal;
RelUsuario.tblUsuarios.Filtered := False;
RelUsuario.Destroy;
Lembrando que ´FormUsuarios´ pode ser o formulário ou o DataModule, onde quer que vc tenha colocado o Table acessado pelo formulário.
Você pode filtrar a tabela do relatório antes de sua exibição. Supondo que o Table se chama tblUsuarios e o código seja o campo CodUsuario:
Application.CreateForm(TRelUsuario, RelUsuario);
// Ler o registro atual no formulário
RelUsuario.tblUsuarios.Filter := ´CodUsuario = ´ +
FormUsuarios.tblUsuarios.FieldByName(´CodUsuario´).AsString;
RelUsuario.tblUsuarios.Filtered := True;
RelUsuario.PreviewModal;
RelUsuario.tblUsuarios.Filtered := False;
RelUsuario.Destroy;
Lembrando que ´FormUsuarios´ pode ser o formulário ou o DataModule, onde quer que vc tenha colocado o Table acessado pelo formulário.
Responder
Gostei + 0
08/06/2004
Fatrix
Uma outra maneira bem simples de se fazer isso é setando a propriedade DataSet do DataSource que está no fórmulario do relatório com o caminho da tabela do seu formulário de cadastro.
Por exemplo : Cadastro_Form.Table1
É isso.
Espero ter sido claro.
Por exemplo : Cadastro_Form.Table1
É isso.
Espero ter sido claro.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)