USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  relatório
welsouza
não registrado
Postada em 03/05/2005 19:35 hs   
tenho uma ordem de serviço e um relatorio que deveria imprimir os dados que aparace no form, mas quando ele me mostra o relatório e apresenta somente o primeiro registro e não o que está no form. Como posso imprimir os dados contidos no form.
 
no cammand imprimir BOTÃO
estou usando apenas o commando
     
Analista
CÁCERES
MT - BRASIL
Postada em 04/05/2005 02:31 hs            
após gravar no banco de dados, use esse códio no botão imprimir
 
    Crr1.DataFiles(0) = App.Path & "DadosTemp.Mdb"
    Crr1.SelectionFormula = " {TempCadClientes.NomeCli} = '" & _
DBGrid1.Columns("NomeCli") & "'"
    Crr1.ReportFileName = App.Path & "Listacli.rpt"
    Crr1.DiscardSavedData = True
    Crr1.WindowState = crptMaximized
    Crr1.Action = 1
 
 
Isso deve de dar certo.
 
Qualquer dúvida é so dizer.
 
Luciano.
 
 
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 04/05/2005 10:16 hs         

use o selection formula, se a base do relatório for a própria tabela você fazer assim

.SelectionFormula = "(({R~Relcrecp.NumeroOS} = " & Str$(Me.txtCpNumeroOS.Text) & "))"

outra maneira de fazer seria criar uma consulta para o relatório e ter uma tabela de parâmetro (essa tabela tem somente um registro) onde antes de imprimir você atulizaria esta tabela (campo numero da OS) e na consulta teria um Where onde o numero da OS fosse igual ao dessa tabela
     
welsouza
não registrado
Postada em 04/05/2005 18:52 hs   
não consegui as dicas acima ... sou iniciante Emoções posso não ter entendido..... me ajudem por favor
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 04/05/2005 20:37 hs         
exemplo:
eu criei um relatório com a tabela base Produtos e coloquei este código para imprimir o relatório, imprimindo apenas o produtos atual na tela
 
Private Sub btnImprimir_Click()
  With objCR
    .ReportFileName = "C:Documentos_AndréTempprodutos.rpt" 'caminho e nome do arquivo do rel
    .Destination = crptToWindow 'visualizar
    .SelectionFormula = "(({Produtos.Codigo} = " + Str$(Me.Text1.Text) + "))" 'somente produto atual
    .Action = 1
  End With
End Sub
 
     
welsouza
não registrado
Postada em 04/05/2005 22:25 hs   
Ola martini no exemplo citado acima temos
 
 .ReportFileName = caminho e nome arquivo relatorio
 
duvida antes do ponto o que vem
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página