Her Satırı Yazdırma

[bjk55]

Merhaba, ekte eklediğim dosya da ki her satırı yazıcıya yollarken ayrı kağıtlarda yazılmasını istiyorum nasıl yapabilirim

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()
   
    Dim i As Long, a As String, b As String
   
    a = [A1]: b = [C1]
   
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        [A1] = Cells(i, "A")
        [C1] = Cells(i, "C")
        ActiveSheet.PrintOut
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i
   
    [A1] = a: [C1] = b
   
End Sub

 

[bjk55]

denedim ama olmadı

 

[Ömer]

Yazdırırken sadece bu kodları kullandınız mı?

 

[bjk55]

Yazdırırken sadece bu kodları kullandınız mı?

Teşekkür ederim oldu ama boş sayfada atıyor diyelim 4 satır yazmışım boş olan satırlar çıkmamazı için ne yapabilirim

 

[Ömer]

Boş sayfadan kastınız A sütunundaki veriler arasında boş satır diye anladım.
Bu şekilde deneyin.

Sub Yazdir()
  
    Dim i As Long, a As String, b As String
  
    a = [A1]: b = [C1]
  
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            [A1] = Cells(i, "A")
            [C1] = Cells(i, "C")
            ActiveSheet.PrintOut
            Application.Wait (Now + TimeValue("0:00:01"))
        End If
    Next i
  
    [A1] = a: [C1] = b
  
End Sub