RELATÓRIO POR DATA
Estou precisando gerar um relatorio por periodo de data e tenho esse codigo abaixo no VB6 e esta funcionando normalmente, mais agora eu estou tentado fazer pelo Visual studio e não estou conseguido, pois o VS2010 não tem o DataEnvironment.
Alguem pode me ajudar a resolver esse problema.
Set rs = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open [Ô]PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\bancodados.mdb;Jet OLEDB:Database Password=Library;[Ô]
If rptDataEnvironment3.Conexão.State = 1 Then
rptDataEnvironment3.Conexão.Close
End If
rptDataEnvironment3.Conexão.Open
Fdate = actdatainicial.Value
Ldate = actdatafinal.Value
rptDataEnvironment3.Compporperiodo Fdate, Ldate
If rptDataEnvironment3.rsCompporperiodo.RecordCount = 0 Then
MsgBox [Ô]Não registros para este critério[Ô], vbExclamation
Exit Sub
End If
Me.Hide
DtPeriodoComp.Show vbModal
Obrigado
Alguem pode me ajudar a resolver esse problema.
Set rs = New ADODB.Recordset
Set con = New ADODB.Connection
con.Open [Ô]PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\bancodados.mdb;Jet OLEDB:Database Password=Library;[Ô]
If rptDataEnvironment3.Conexão.State = 1 Then
rptDataEnvironment3.Conexão.Close
End If
rptDataEnvironment3.Conexão.Open
Fdate = actdatainicial.Value
Ldate = actdatafinal.Value
rptDataEnvironment3.Compporperiodo Fdate, Ldate
If rptDataEnvironment3.rsCompporperiodo.RecordCount = 0 Then
MsgBox [Ô]Não registros para este critério[Ô], vbExclamation
Exit Sub
End If
Me.Hide
DtPeriodoComp.Show vbModal
Obrigado
Alguém pode me ajudar ....
ALEXANDREBS,
Olha ... eu curto para caramba o Crystal Reports, mas você pode fazer de várias formas. Exemplo:
VB .NET - Impressão usando o System.Drawing.Printing
http://www.macoratti.net/vbn_prn2.htm
[][ô]s,
Tunusat.
Olha ... eu curto para caramba o Crystal Reports, mas você pode fazer de várias formas. Exemplo:
VB .NET - Impressão usando o System.Drawing.Printing
http://www.macoratti.net/vbn_prn2.htm
While drProdutos.Read
[ô]cria um novo documento para impressão
Dim pd As PrintDocument = New PrintDocument()
[ô]relaciona o objeto pd ao procedimento rptProdutos
AddHandler pd.PrintPage, AddressOf Me.rptProdutos
[ô]cria uma nova instância do objeto PrintPreviewDialog()
objPrintPreview = New PrintPreviewDialog()
[ô]define algumas propriedades do obejto
With objPrintPreview
[ô]indica qual o documento vai ser visualizado
.Document = pd
.WindowState = FormWindowState.Maximized
.PrintPreviewControl.Zoom = 1 [ô]maxima a visualização
.Text = [Ô]Catálogo de Produtos[Ô]
[ô]exibe a janela de visualização para o usuário
.ShowDialog()
End With
End While[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas