Sub MyExport()
Dim myLastRow As Long
Dim myDir As String
' Find last row in column A on sheet 1
myLastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
' Enter formulas on sheet 2
Sheets("Sheet2").Range("A1:A" & myLastRow).FormulaR1C1 = "=TEXT(Sheet1!RC,""000000"")"
Sheets("Sheet2").Range("B1:B" & myLastRow).FormulaR1C1 = "=TEXT(Sheet1!RC*100,""00000000000000"")"
' Set column widths
Sheets("Sheet2").Columns("A:A").ColumnWidth = 6
Sheets("Sheet2").Columns("B:B").ColumnWidth = 14
' Check for existence of directory and export file
Sheets("Sheet2").Select
myDir = "C:\Documents and Settings\Administrator\Desktop\"
If Dir(myDir, vbDirectory) = "" Then
MsgBox "Directory " & myDir & " does not exist!!!"
Else
ActiveWorkbook.SaveAs Filename:=myDir & "Book1.prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
End If
End Sub