IMPRIMIR CONTEUDO DO MSFLEXGRID

FEEHPEREZ 06/08/2013 10:39:45
#427070
Bom Dia pessoal

meu dilema, tenho um form de pesquisa onde pesquiso entre datas, legal bacana, agora eu queria imprimir esse conteúdo do MSFLEXGRID como se fosse um relatório....

Já tentei de todos os jeitos ate tentei um código que pelo DATA REPORT ele imprime o conteúdo do banco de dados todo, não apenas o que esta aparecendo na MSFLEXGRID, esse código esta assim pessoal.

Variaveis
Dim cmd_relatorio As New ADODB.Command
Dim rs_relatorio As New ADODB.Recordset

Private Sub cmdrelatorio_Click()
With DataReport1
Set .DataSource = rs_relatorio
.DataMember = [Ô][Ô]
.Refresh
.Show
End With
End Sub

Private Sub Form_Load()
With cmd_relatorio
.ActiveConnection = CON
.CommandType = adCmdText
.CommandText = [Ô]Select DATA, VALORRECEBIDO, VALORPAGO from tblDespesas[Ô]
Set rs_relatorio = .Execute
End With
end sub

Obrigado desde já pela força pessoal
SINKERTEC 06/08/2013 10:53:42
#427071


Bom dia

NO FlexGrid ele mostra certinho, mas no relatório ele imprime ignorando seu filtro?

Cade o intervalo de datas na consulta?: .CommandText = [Ô]Select DATA, VALORRECEBIDO, VALORPAGO from tblDespesas[Ô]

qual banco de dados vc ta usando?
OMAR2011 06/08/2013 11:16:22
#427072
Verifica se da para aproveitar.
http://www.macoratti.net/prngrid.htm
MARCELO.TREZE 06/08/2013 13:46:19
#427078
basta pegar a query que preenche a flex grid em colocar para o data report
JCARLOS 06/08/2013 14:50:14
#427084 Resposta escolhida
Printer.Font = [Ô]Courier New[Ô]
Printer.FontSize = 12
Printer.Print [Ô][Ô]
Printer.Print [Ô] [Ô] & Format(Date, [Ô]dd/mm/yyyy[Ô])
Printer.Print [Ô][Ô]
Printer.Print [Ô]Meu Relatório[Ô]
Printer.Print [Ô]________________________________________________________________________[Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô] RMS Inconsistência[Ô]
Printer.Print [Ô]________________________________________________________________________[Ô]
Printer.Print [Ô][Ô]
Printer.Print [Ô][Ô]
Printer.Font = [Ô]Arial Ocidental[Ô]
Printer.FontSize = 9
Dim i As Integer
For i = 1 To grdRMS.Rows - 1
[ô]If grdRMS.TextMatrix(I, 6) <> [Ô][Ô] Then
Printer.Print Tab(6); grdRMS.TextMatrix(i, 0); Tab(20); grdRMS.TextMatrix(i, 1)
Printer.Print [Ô][Ô]
[ô]End If
Next
Printer.Print [Ô][Ô]
Printer.EndDoc
MsgBox [Ô]Relatório foi pra a impressora padrão[Ô], vbInformation
FEEHPEREZ 06/08/2013 16:46:50
#427094
JCARLOS valeu mesmo hein deu certinho aqui, deixa soh eu te perguntar, tenho 3 labels, abaixo do flex queria colocar elas na impressão tbm......mas tentei e não consegui...

valeu pela força
Tópico encerrado , respostas não são mais permitidas
Voltar