Listbox1'i .txt dosyasına aktarmak

[osmanfenerli1907]

Selamlar
Arkadaşlar ben commandbutton1 e tıklayınca kayıtlar diye .txt dosyası oluştursun listbox1 i aynen oraya aktarsın.Listbox1 rapor alıyor onun için excel den aktarılmıyor bilgiler.Commandbutton1 e tıklayınca listbox1 deki veriler aynen aktarılsın .txt ye.Commandbutton2 ye tıklayıncada kayıtlar.txt yi komple yazdırsın yazıcıdan.Yazıcı yoksa özel hata versin.
saygılarımla

 

[osmanfenerli1907]

Bu dediğim mümkün mü sayın hocalarım.

 

[Haluk]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const MyFile As String = "C:\Kayitlar.txt"
'
Private Sub CommandButton1_Click()
    Open MyFile For Append As #1
    For i = 0 To ListBox1.ListCount - 1
        Print #1, ListBox1.List(i)
    Next
    Close #1
End Sub
'
Private Sub CommandButton2_Click()
    ShellExecute 0, "Print", MyFile, vbNullString, "C:\", 1
End Sub

 

[osmanfenerli1907]

Sayın haluk aktarması güzel ama yazıcı olmayınca yüklü yazıcı yok hatası verse.Yazıcı varsa da yazıcı seçim penceresi gelse.
KOLAY GELSİN
iyi günler

 

[osmanfenerli1907]

SAYIN hocalarım bu txt dosyasını yazdırma ile ilgilenebilir misiniz?

 

[Levent Menteşoğlu]

commandbutton2 deki kodu aşağıdaki gibi değiştirerek deneyin.

Private Sub CommandButton2_Click()
on error goto 10
ShellExecute 0, "Print", MyFile, vbNullString, "C:\", 1
exit sub
10 msgbox "Yazıcı yüklü değil"
End Sub

 

[asabi45]

Osman kardeşim 14,15 ,17 yaşındasın falan filan. Excel.gen.tr ve kod.gen.tr'den defalarca kovuldun. Oralarda defalarca terbiyesizlik yaptın. Burada rahat dur bari. Her gün onlarca ilgisiz soru sorup cevap alamayınca da milleti sık boğaz etme.

 

[osmanfenerli1907]

Sayın hocam şu hatayı veriyor...
compile error
label not defined

 

[osmanfenerli1907]

Saygıdeğer hocam kayıtlar.txt ye aktarınca öncekini silsin yeni listbox1 dekini aktarsın.Birde yazıcı şu hatayı veriyor.yardımcı olursanız sevinirim

compile error
label not defined

 

[Haluk]

append yerine output kullan.

msgbox satırının başına da 10: ekleyeceksin.