Dim test As String
test.PrintOut
Public Sub PrintText()
Dim strText As String
Dim rng As Excel.Range
Dim sht As Excel.Worksheet
strText = "Test string"
Set sht = Application.Sheets(1)
sht.Activate
Set rng = sht.Range("A3")
rng.Activate
rng.Value = strText
rng.PrintOut
rng.Value = ""
End Sub