IMPRESAO DE DATAGRID

ERINALDO 27/03/2005 12:23:06
#75161
[txt-color=#ff0000]Eu nao Manjo Muito Do print
Mas e seguinte eu gostaria de saber se e possivel Visualizar o
conteudo de um data grid usando o print
se for possivel como
Me Ajudem serei grato.........Obrigado[/txt-color]
TONARE25 27/03/2005 12:33:32
#75163
Dim VarPrint As String

'Cabeçalho do Relatório Pegando do Datagrid'
Printer.Print DataGrid1.Columns.Item(0).Caption & " " & DataGrid1.Columns.Item(1).Caption; ""
Printer.Print
'Dados do Recordset'
Do While Not datPrimaryRS.Recordset.EOF
VarPrint = datPrimaryRS.Recordset.Fields("CODIGO") & " " & datPrimaryRS.Recordset.Fields("DESCRICAO")
Printer.Print VarPrint
VarPrint = ""
datPrimaryRS.Recordset.MoveNext
Loop

Printer.EndDoc

Me.MousePointer = 0

MsgBox "Dados Enviados para a Impressora Com Sucesso !!!", , "Impressão"
Tópico encerrado , respostas não são mais permitidas
Voltar