Как отправить в Printer MSFlexGrid, без PrintForm? - VB

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.06.01
 
    Workbooks.OpenText FileName:='D:Temp_Dol', Origin:=xlWindows, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
        3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10 _
        , 2))
End Sub