PrintText

Sub PrintText()
Dim sep, msg
msg = "my very own document" 'Titolo Pagina
sep = "====================" 'seperatore
'print da text1

Printer.Print msg & vbCrLf & _
sep & vbCrLf & Text1 & vbCrLf & _
vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
"File Size: " & Len(Text1) & "bytes"
Printer.EndDoc
End sub