Excel VBA Print только одна строка

Question

Я использую этот код для добавления новых элементов в следующую пустую строку.

    Private Sub Ekle_Butonu_Click()

    Dim LastRow As Long, ws As Worksheet

    Set ws = Sayfa1

    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
    ws.Range("A" & LastRow).Value = Tarih_B
    ws.Range("C" & LastRow).Value = Kaynak_B
    ws.Range("E" & LastRow).Value = Aciklama_B
    ws.Range("I" & LastRow).Value = Tutar_B

End Sub

И я хочу напечатать просто этой добавленной строки. Вы можете мне помочь?

Answer 1

Вам необходимо просмотреть свойство PageSetup.PrintArea. Например:

Sub Test()

Dim lr As Long

With Sayfa1
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lr, 1).Value = Tarih_B
    .Cells(lr, 3).Value = Kaynak_B
    .Cells(lr, 5).Value = Aciklama_B
    .Cells(lr, 9).Value = Tutar_B
    .PageSetup.PrintArea = Replace("A?,C?,E?,I?", "?", lr)
    .PrintOut
End With

End Sub

---

Согласно вашему комментарию, если я вас правильно понимаю, в этой же строке есть еще ячейки, которые вы хотите включить:

.PageSetup.PrintArea = Replace("A?:J?", "?", lr)