Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
rogerioclaro2 Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013 Mensagens: 404
|
Enviada: Sex Mai 24, 2019 5:06 pm Assunto: Linhas Do DbGrid Imprimir[RESOLVIDO] |
|
|
Pessoal, boa tarde!
Ja dei uma olhada no forum e nao consegui achar algo com o mesmo "problema" que o meu.
Tenho um edit que quando e digitado (Change do edit)
Código: |
dm.qryCliente.Close;
dm.qryCliente.SQL.Clear;
dm.qryCliente.SQL.Add(SELECT);
dm.qryCliente.SQL.Add(WHERE);
dm.qryCliente.Params.ParamByName('NOME').AsString := edtpesquisa.Text + '%'
|
funciona blz.. o resultado (grid) vai aparecendo de acordo que o usuário do digitando
depois de localizar eu clico e consigo imprimir com o seguinte código
Código: |
Application.CreateForm(TfrmRelat, frmRelat);
frmRelat.Relat.Preview();
frmRelat.Free;
|
e blz.. fica na tela show...
porém eu criei um botão para marcar mais de uma linha, que funciona normal tb..
Código: |
var
vlLinha: Integer;
begin
with grd.DataSource.DataSet do
begin
First;
for vlLinha := 0 to RecordCount - 1 do
begin
grd.SelectedRows.CurrentRowSelected := True;
Next;
end;
end;
grd.SelectedRows.Refresh;
|
ai marcando as linhas ao tentar imprimir, a tela fica em branco... nao traz os que setei no grid... agora se setar um só, vai tranquilo.. alguém tem ideia?
valeu pessoal.
Editado pela última vez por rogerioclaro2 em Qui Mai 30, 2019 10:05 am, num total de 1 vez |
|
Voltar ao Topo |
|
|
rogerioclaro2 Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013 Mensagens: 404
|
Enviada: Seg Mai 27, 2019 8:32 am Assunto: |
|
|
alguma ideia? Valeu Pessoal |
|
Voltar ao Topo |
|
|
rogerioclaro2 Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013 Mensagens: 404
|
Enviada: Qui Mai 30, 2019 10:09 am Assunto: |
|
|
Resolvido pessoal, falta de atenção minha, o nao vinculei o DS. |
|
Voltar ao Topo |
|
|
|