tem tambem mandando tudo pro famigerado ..... rss word , ele tem algumas limitacoes (digo pra mim ) tem alguasm coisa bem dificeis de fazer nele , mas um relatorio normal editavel , ate que é facil fazer, da uma olhada
Dim Word As Word.Application
'--------------------------------------------
'esta variavel exorta o conteudo do checkBox
'para o Word
Dim retorno As String
'****************************************
Set Word = New Word.Application
With Word
.Visible = True 'habilita visualização do word
.Documents.Add DocumentType:=wdNewBlankDocument
'Tamanho da Fonte
.Selection.Font.Size = "16"
'Alinhamento do Texto - Centralizado
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Negrito
.Selection.Font.Bold = True
'Sublinhado
.Selection.Font.Underline = True
.Selection.TypeText Text:=lblTitulonoWord.Caption
'Sublinhado
.Selection.Font.Underline = False
'Negrito
.Selection.Font.Bold = False
'Enter
.Selection.TypeParagraph
'Alinhamento do Texto - Esquerda
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
'Tamanho da Fonte
.Selection.Font.Size = "12"
.Selection.TypeParagraph
.Selection.TypeText Text:=lblcod.Caption & ": " & txtcod.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=Label1.Caption & ": " & txtcodimo.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=Label7.Caption & ": " & txtcor.Text
.Selection.TypeParagraph
'inseri conteudo de checkBox
retorno = IIf(Check1.Value, "Vende-se", "")
.Selection.TypeText Text:=Label6.Caption & ": " & retorno
.Selection.TypeParagraph
Set Word = Nothing
Else
Exit Sub
End If
