|
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
|
|
|
|
|
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.
|
|
|
|
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
|
|
|
|
Postada em 04/05/2005 18:52 hs
não consegui as dicas acima ... sou iniciante posso não ter entendido..... me ajudem por favor
|
|
|
|
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
|
|
|
|
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
|
|
|