Visual Basic - exportar datos de msflexgrid...urgente

Necesito enviar los datos de dos columnas de una msflexgrid a un archivo que se pueda imprimir..por fa es urgente.

Hace tiempo probe con esta y funciono perfectamente para pasarlo a excel, espero te sirva

Set objExcel = New Excel.Application
objExcel.SheetsInNewWorkbook = 1
objExcel.Workbooks.Add
objExcel.Visible = True
objExcel.SheetsInNewWorkbook = 1

Dim ContX As Integer, ContY As Integer
ContX = 0
ContY = 0

For ContX = 0 To Tabla.Rows - 1
For ContY = 0 To Tabla.Cols - 1
With objExcel.ActiveSheet
.Cells(ContX + 1, ContY + 1) = Tabla.TextMatrix(ContX, ContY)
End With
Next
Next