Save As Formatted Text(space delimited)*.prn

[gulcan34]

Selamlar,
Çok sık yaptığım farklı kaydet işleminde yardıma ihtiyacım var.1.sutunun genişliği 17,2.sutunun genişliği 3 olarak ayarlandıktan sonra "Save As Formatted Text(space delimited)*.prn" dosyası olarak kaydetmek istiyorum.Özetle bu iki kolonun genişliklerini ayarlayıp farklı kaydet (prn dosyası olarak) yapabilecek bir tuşa ihtiyacım var.Yol gösterirseniz sevinirim.

 

[xxcell]

Aşağıdaki kod muhtemelen işini görecektir.

Sub FARKLI_KAYDET()
  
  Columns("A:A").ColumnWidth = 17,2
  Columns("B:B").ColumnWidth = 3
  DOSYA_ADI = "C:\Kitap1.prn"
    
    ActiveWorkbook.SaveAs Filename:= _
        DOSYA_ADI, FileFormat:= _
        xlTextPrinter, CreateBackup:=False
        
End Sub

 

[gulcan34]

Teşekkur ederim.