Imprimir Datagrid

Olá PessoalCOMO FAÇO PARA IMPRIMIR UM RELATÓRIO DA TELA DO DATAGRID. HOJE EU IMPRIMO TUDO EM UMA PESQUISA DE SQL, SÓ QUE PRECISO IMPRIMIR QUANDO EU POR EXEMPLO ORDENO UMA COLUNA.... COMO FAÇOPrivate Sub cmdImprimir_Click()Set RsServicos = New ADODB.RecordsetRsServicos.Open "SELECT * FROM Composicao_vidros ORDER BY codigo", cnn, adOpenKeyset, adLockPessimisticSet RptServ.DataSource = RsServicosRptServ.ShowEnd SubABRAÇOSALEX