Userform kapatırken,kodlar çalışmıyor

[cavanoos]

Merhaba arkadaşlar;


Alttaki kod çalışıyor.Ama işlem bittikten sonra kapanmasını istiyorum.
O yüzden En son satırdan önceki satıra Unload UserForm1 yazdım.Formum kapandı.Ama artık aradaki kodlar çalışmıyor.Açılıyor ve kapanıyor.Yardım eder misiniz ?

Private Sub UserForm_Activate()
With AcroPDF1
Dim yol As String, evn As Object
Dim klasor As Object, pdfler As Object
yol = "C:\telefon"
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(yol)
For Each pdfler In klasor.Files
If VBA.LCase(VBA.Right(pdfler.Path, 3)) = "pdf" Then
.LoadFile pdfler.Path
.setCurrentPage 1
.printPages From:=1, To:=1
End If
Next pdfler
Set pdfler = Nothing: Set klasor = Nothing
Set evn = Nothing: yol = vbNullString
End With
End Sub

 

[İhsan Tank]

Merhaba
Dosya ekler misiniz_?

 

[cavanoos]

İhsan Bey;

Dosyayı ekliyorum ama çalışması için c sürücüsünün altında TELEFON isimli bir klasör açmanız ve içine bir adet pdf dosyası eklemeniz gerekiyor.Ayrıca açarken iki tane mesaj mı yoksa uyarımı öyle bir şeyler çıkıyor ama önemli değil onlar.

 

[İhsan Tank]

İhsan Bey;

Dosyayı ekliyorum ama çalışması için c sürücüsünün altında TELEFON isimli bir klasör açmanız ve içine bir adet pdf dosyası eklemeniz gerekiyor.Ayrıca açarken iki tane mesaj mı yoksa uyarımı öyle bir şeyler çıkıyor ama önemli değil onlar.

Unload Userform1 kodu çalışıyor

 

[cavanoos]

İhsan Bey;

Unload.userform1 çalışıyor ama kodun içindeki diğer kodlar çalışmıyor.O kodda telefon klasöründeki bir adet pdf dosyasını açıp yazdırması gerekiyor. Unload.userform1 kodu olmazsa eğer pdf dosyasını açıp yazdırıyor.Ama bu seferde userform açık kalıyor.

Umarım kendimi anlatabilmişimdir.

 

[İhsan Tank]

İhsan Bey;

Unload.userform1 çalışıyor ama kodun içindeki diğer kodlar çalışmıyor.O kodda telefon klasöründeki bir adet pdf dosyasını açıp yazdırması gerekiyor. Unload.userform1 kodu olmazsa eğer pdf dosyasını açıp yazdırıyor.Ama bu seferde userform açık kalıyor.

Umarım kendimi anlatabilmişimdir.

Merhaba
Bende yazdırıyor yazdırırken pdf'de yes no uyarısı çıkıyor buna yer dediğinizde yazıcıya aktarıyor

 

[cavanoos]

İhsan Bey;

Aynı dosyada çalışıyoruz.Sizde yazıcıdan çıktı alınırken,bende alınmıyor.Nedeni konusunda bir bilginiz var mı ?