IMPRIMIR POR PERIODO
amigos sera que alguem pode me ajudar:
é o seguinte eu uso o objeto printer para imprimir e eu preciso imprimir fazer um relatorio que imprima por data.
na minha tabela eu tenho os seguintes campos:
codp, data, preço, atualização
e no meu form eu tenho duas caixa de texto onde eu chamei a primeira de txtdatainicial e a seugunda de txtdatafinal e um botão de comando para imprimir.
o que eu preciso de quando eu clique no botao de imprimir ele imprima somente o que tiver dantro desta data.
ex: 11/01/2007 a 30/01/2007 eu quero que ele mande imprimir somente os dados que tiver nesta data.
uso a conexão ado para imprimir.
abaixo vou colocar o comando que eu dou para imprimir.
BD.rsPrecosAlterados.Open
Do While Not rsprecos.EOF ' significa quando chegar ao ultimo registro
If Linha = 1 Then 'define linha 1 é cabeçalho
Cabeçalho
End If
Printer.CurrentX = 2500 'lagura da pagina
'campos a serem imprimidos
Printer.FontBold = False
Printer.Print Tab(3); rsprecos("codp");
Printer.Print Tab(10); rsprecos("data");
RSet srtpcatl = Format(rsprecos("preços"), "#,##0.00") '
Printer.Print Tab(82); rsprecos("atualização");
Linha = Linha + 1 ' montando as linhas
rsprecos.MoveNext 'proximo registro da tabela
If Linha >= 45 Then ' se tiver mais de 45 linhas iniciar uma nova pagina
Printer.NewPage
Linha = 1
End If
Loop
Printer.EndDoc 'finaliza a impressao
rsprecos.Close 'fecha a tabela produto
Next
Exit Sub
TrataErro:
Exit Sub
é o seguinte eu uso o objeto printer para imprimir e eu preciso imprimir fazer um relatorio que imprima por data.
na minha tabela eu tenho os seguintes campos:
codp, data, preço, atualização
e no meu form eu tenho duas caixa de texto onde eu chamei a primeira de txtdatainicial e a seugunda de txtdatafinal e um botão de comando para imprimir.
o que eu preciso de quando eu clique no botao de imprimir ele imprima somente o que tiver dantro desta data.
ex: 11/01/2007 a 30/01/2007 eu quero que ele mande imprimir somente os dados que tiver nesta data.
uso a conexão ado para imprimir.
abaixo vou colocar o comando que eu dou para imprimir.
BD.rsPrecosAlterados.Open
Do While Not rsprecos.EOF ' significa quando chegar ao ultimo registro
If Linha = 1 Then 'define linha 1 é cabeçalho
Cabeçalho
End If
Printer.CurrentX = 2500 'lagura da pagina
'campos a serem imprimidos
Printer.FontBold = False
Printer.Print Tab(3); rsprecos("codp");
Printer.Print Tab(10); rsprecos("data");
RSet srtpcatl = Format(rsprecos("preços"), "#,##0.00") '
Printer.Print Tab(82); rsprecos("atualização");
Linha = Linha + 1 ' montando as linhas
rsprecos.MoveNext 'proximo registro da tabela
If Linha >= 45 Then ' se tiver mais de 45 linhas iniciar uma nova pagina
Printer.NewPage
Linha = 1
End If
Loop
Printer.EndDoc 'finaliza a impressao
rsprecos.Close 'fecha a tabela produto
Next
Exit Sub
TrataErro:
Exit Sub
Amigo e so incluir no seu select o periodo ---
exe :
select codp, data, preço, atualização from tabela where data >= 11/01/2007 00:00 and data <= 30/01/2007 23:59
exe :
select codp, data, preço, atualização from tabela where data >= 11/01/2007 00:00 and data <= 30/01/2007 23:59
sim mais onde que eu incluo o select
Onde vc abre o Recordset rsprecos???
é na abertura dele que vc precisa colocar o intervalo de datas.
Ou então vc utiliza o método filter:
é na abertura dele que vc precisa colocar o intervalo de datas.
Ou então vc utiliza o método filter:
rsprecos.Filter = "Data BETWEEN 'Data1' AND 'Data2'"
'Aqui embaixo vem sua rotina de impressão
Tópico encerrado , respostas não são mais permitidas