Copiar Relatório para area de transfência

Prezados. Poderia me ajudar.

Existe algum código vba , que consiga copiar o relatório que chamo via Docmd.openreport e copie , para area de transferência o relatorio natela e com o Control V

cole em um e-mail por exemplo.

utilizo o seguinte codigo abaixo para abrir o relatorio :

Private Sub Comando300_Click()

Dim Codtf As Long
Dim filtro As String, strMsg As String

Codtf = Me.TxtCodtf
filtro = "[cód_tipo_evento] = " & Codtf & ""
DoCmd.OpenReport "Rlt_SubTurma", acPreview, , filtro

Tentei usar o codigo abaixo , mas o gera erro

Me.rtlTurmas.SetFocus  ' rtlTurmas é o objeto do subrelatorio
DoCmd.RunCommand acCmdCopy

Estou enviando o relatorio em anexo.

Obrigado