Dosya İçerisindeki PDF' leri Sıralı Toplu Yazdırma

dortmevsim · 23 Eylül 2024

İndirilenler klasörü içerinde bulunan pdf' leri toplu yazdırdığımda sıralı gönderdiğim halde yazıcıdan sıralı döküm alamıyorum PDF leri sıralı olarak yazıcıya 10 saniyede bir gönderebilecek bir makro var mı acaba teşekkürler

hasankardas · 23 Eylül 2024

Yapay zeka ile oluşturdum denedim çalışıyor

Kod:

Sub YazdirVeBekle()

    Dim folderPath As String
    Dim pdfFile As String
    Dim shellCommand As String
    Dim waitTime As Double
    Dim secondsToWait As Double

    ' İndirilenler klasörünüzün yolunu buraya yazın
    folderPath = "D:\deneme\"
    
    ' Her dosyadan sonra kaç saniye beklemek istediğinizi ayarlayın
    secondsToWait = 10

    ' Klasördeki ilk PDF dosyasını bul
    pdfFile = Dir(folderPath & "*.pdf")
    
    ' Tüm PDF dosyalarını sırayla yazdır
    Do While pdfFile <> ""
        
        ' Yazdırma komutunu oluştur
        shellCommand = "cmd /c start /min AcroRd32.exe /t """ & folderPath & pdfFile & """"
        
        ' Shell komutu ile PDF dosyasını yazıcıya gönder
        Shell shellCommand, vbHide
        
        ' Bekleme süresi
        waitTime = Timer
        Do While Timer < waitTime + secondsToWait
            DoEvents ' Diğer işlemlerin gerçekleştirilmesine izin verir
        Loop
        
        ' Bir sonraki PDF dosyasını al
        pdfFile = Dir
    Loop

End Sub

dortmevsim · 23 Eylül 2024

hasankardas' Alıntı:

Yapay zeka ile oluşturdum denedim çalışıyor

Kod:

Sub YazdirVeBekle()

    Dim folderPath As String
    Dim pdfFile As String
    Dim shellCommand As String
    Dim waitTime As Double
    Dim secondsToWait As Double

    ' İndirilenler klasörünüzün yolunu buraya yazın
    folderPath = "D:\deneme\"
   
    ' Her dosyadan sonra kaç saniye beklemek istediğinizi ayarlayın
    secondsToWait = 10

    ' Klasördeki ilk PDF dosyasını bul
    pdfFile = Dir(folderPath & "*.pdf")
   
    ' Tüm PDF dosyalarını sırayla yazdır
    Do While pdfFile <> ""
       
        ' Yazdırma komutunu oluştur
        shellCommand = "cmd /c start /min AcroRd32.exe /t """ & folderPath & pdfFile & """"
       
        ' Shell komutu ile PDF dosyasını yazıcıya gönder
        Shell shellCommand, vbHide
       
        ' Bekleme süresi
        waitTime = Timer
        Do While Timer < waitTime + secondsToWait
            DoEvents ' Diğer işlemlerin gerçekleştirilmesine izin verir
        Loop
       
        ' Bir sonraki PDF dosyasını al
        pdfFile = Dir
    Loop

End Sub

teşekkürler bilgisayarda sürücü görünmüyor yazılacak dosyaların yeri ağda dosya aratarak seçtiğimiz dosyadakileri yazdırabilirmiyiz

RBozkurt · 23 Eylül 2024

Merhaba,

Üstteki kodda bulunan adres satırı klasör seçme ile değiştirildi.

Kod:

Sub YazdirVeBekle()

    Dim folderPath As String
    Dim pdfFile As String
    Dim shellCommand As String
    Dim waitTime As Double
    Dim secondsToWait As Double
    Dim fd As FileDialog
    Dim selectedFolder As Variant

    ' Klasör seçmek için FileDialog'u kullan
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' FileDialog açılır ve kullanıcıdan klasör seçmesi istenir
    If fd.Show = -1 Then ' Eğer kullanıcı klasör seçerse
        folderPath = fd.SelectedItems(1) & "\" ' Seçilen klasör yolu
    Else
        MsgBox "Klasör seçilmedi.", vbExclamation
        Exit Sub
    End If
    
    ' Her dosyadan sonra kaç saniye beklemek istediğinizi ayarlayın
    secondsToWait = 10

    ' Klasördeki ilk PDF dosyasını bul
    pdfFile = Dir(folderPath & "*.pdf")
    
    ' Tüm PDF dosyalarını sırayla yazdır
    Do While pdfFile <> ""
        
        ' Yazdırma komutunu oluştur
        shellCommand = "cmd /c start /min AcroRd32.exe /t """ & folderPath & pdfFile & """"
        
        ' Shell komutu ile PDF dosyasını yazıcıya gönder
        Shell shellCommand, vbHide
        
        ' Bekleme süresi
        waitTime = Timer
        Do While Timer < waitTime + secondsToWait
            DoEvents ' Diğer işlemlerin gerçekleştirilmesine izin verir
        Loop
        
        ' Bir sonraki PDF dosyasını al
        pdfFile = Dir
    Loop

End Sub

dortmevsim · 23 Eylül 2024

Çok teşekkürler eline sağlık mükemmel çalışıyor (ada göre yazdırıyor)

dortmevsim · 26 Eylül 2024

PDF dosyalarının oluşturulma tarihine göre sıralı nasıl yazdırılabilir.

dortmevsim · 27 Eylül 2024

PDF dosyalarının oluşturulma tarihine göre sıralı nasıl yazdırılabilir.

dortmevsim · 27 Eylül 2024

RBozkurt' Alıntı:

Merhaba,

Üstteki kodda bulunan adres satırı klasör seçme ile değiştirildi.

Kod:

Sub YazdirVeBekle()

    Dim folderPath As String
    Dim pdfFile As String
    Dim shellCommand As String
    Dim waitTime As Double
    Dim secondsToWait As Double
    Dim fd As FileDialog
    Dim selectedFolder As Variant

    ' Klasör seçmek için FileDialog'u kullan
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
    ' FileDialog açılır ve kullanıcıdan klasör seçmesi istenir
    If fd.Show = -1 Then ' Eğer kullanıcı klasör seçerse
        folderPath = fd.SelectedItems(1) & "\" ' Seçilen klasör yolu
    Else
        MsgBox "Klasör seçilmedi.", vbExclamation
        Exit Sub
    End If
   
    ' Her dosyadan sonra kaç saniye beklemek istediğinizi ayarlayın
    secondsToWait = 10

    ' Klasördeki ilk PDF dosyasını bul
    pdfFile = Dir(folderPath & "*.pdf")
   
    ' Tüm PDF dosyalarını sırayla yazdır
    Do While pdfFile <> ""
       
        ' Yazdırma komutunu oluştur
        shellCommand = "cmd /c start /min AcroRd32.exe /t """ & folderPath & pdfFile & """"
       
        ' Shell komutu ile PDF dosyasını yazıcıya gönder
        Shell shellCommand, vbHide
       
        ' Bekleme süresi
        waitTime = Timer
        Do While Timer < waitTime + secondsToWait
            DoEvents ' Diğer işlemlerin gerçekleştirilmesine izin verir
        Loop
       
        ' Bir sonraki PDF dosyasını al
        pdfFile = Dir
    Loop

End Sub

PDF dosyalarının oluşturulma tarihine göre sıralı nasıl yazdırılabilir.

RBozkurt · 27 Eylül 2024

dortmevsim' Alıntı:
PDF dosyalarının oluşturulma tarihine göre sıralı nasıl yazdırılabilir.

Denemedim, yapay zeka üretimi

Kod:

Sub YazdirVeBekle()

    Dim folderPath As String
    Dim pdfFile As String
    Dim shellCommand As String
    Dim waitTime As Double
    Dim secondsToWait As Double
    Dim fd As FileDialog
    Dim selectedFolder As Variant
    Dim fileArray() As String
    Dim fileDateArray() As Date
    Dim fileCount As Integer
    Dim i As Integer, j As Integer
    Dim tempStr As String
    Dim tempDate As Date

    ' Klasör seçmek için FileDialog'u kullan
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' FileDialog açılır ve kullanıcıdan klasör seçmesi istenir
    If fd.Show = -1 Then ' Eğer kullanıcı klasör seçerse
        folderPath = fd.SelectedItems(1) & "\" ' Seçilen klasör yolu
    Else
        MsgBox "Klasör seçilmedi.", vbExclamation
        Exit Sub
    End If
    
    ' Her dosyadan sonra kaç saniye beklemek istediğinizi ayarlayın
    secondsToWait = 10

    ' İlk PDF dosyasını bul
    pdfFile = Dir(folderPath & "*.pdf")
    
    ' Dosyaları ve tarihlerini diziye al
    fileCount = 0
    Do While pdfFile <> ""
        fileCount = fileCount + 1
        ReDim Preserve fileArray(1 To fileCount)
        ReDim Preserve fileDateArray(1 To fileCount)
        fileArray(fileCount) = pdfFile
        fileDateArray(fileCount) = FileDateTime(folderPath & pdfFile)
        pdfFile = Dir
    Loop
    
    ' Dosyaları tarihe göre sıralama (Bubble Sort)
    For i = 1 To fileCount - 1
        For j = i + 1 To fileCount
            If fileDateArray(i) < fileDateArray(j) Then
                ' Dosyaları değiştir
                tempStr = fileArray(i)
                fileArray(i) = fileArray(j)
                fileArray(j) = tempStr
                
                ' Tarihleri değiştir
                tempDate = fileDateArray(i)
                fileDateArray(i) = fileDateArray(j)
                fileDateArray(j) = tempDate
            End If
        Next j
    Next i
    
    ' Tüm PDF dosyalarını sırayla yazdır
    For i = 1 To fileCount
        
        ' Yazdırma komutunu oluştur
        shellCommand = "cmd /c start /min AcroRd32.exe /t """ & folderPath & fileArray(i) & """"
        
        ' Shell komutu ile PDF dosyasını yazıcıya gönder
        Shell shellCommand, vbHide
        
        ' Bekleme süresi
        waitTime = Timer
        Do While Timer < waitTime + secondsToWait
            DoEvents ' Diğer işlemlerin gerçekleştirilmesine izin verir
        Loop
        
    Next i

End Sub

dortmevsim · 27 Eylül 2024

Maalesef olmadı rast gele gönderiyor

Dosya İçerisindeki PDF' leri Sıralı Toplu Yazdırma

dortmevsim

hasankardas

dortmevsim

RBozkurt

𐱅𐰇𐰼𐰚

dortmevsim

dortmevsim

dortmevsim

dortmevsim

RBozkurt

𐱅𐰇𐰼𐰚

dortmevsim