Dim hPrinter As Long
    
Dim MyDocInfo As DOCINFO
Dim Doc As Long
    
MyDocInfo.pDocName = "Test"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
    
If OpenPrinter("Printer Name", hPrinter, 0) Then
    If hPrinter = INVALID_HANDLE_VALUE Then
        Exit Sub
    End If
            
    Doc = StartDocPrinter(hPrinter, 1, MyDocInfo)
    Call StartPagePrinter(hPrinter)

    Result = WritePrinter(hPrinter, ByVal Text1.Text, Len(Text1.Text), nReturned)
            
    Result = EndPagePrinter(hPrinter)
    Result = EndDocPrinter(hPrinter)

End If