Saya memiliki spreadsheet yang membuat grafik dan bagan menggunakan daftar pilihan. Saya telah menemukan kode untuk membuat file untuk mengulang daftar dan mencetak setiap pilihan, namun, saya belum bisa menemukan cara untuk mencetaknya ke PDF sebagai lawan dari printer saya. Adakah yang bisa membantu saya? Saya ingin satu file PDF dengan semua grafik / grafik. Poin bonus jika kode secara otomatis meninggalkan halaman tanpa data.
Ini adalah kode yang saya miliki di file saya:
Sub Test()
Dim rng As Range
Set rng = Sheets("Lists").Range("a2:a122")
For Each cell In rng.Cells
Sheets("Summary").Range("b3").Value = cell.Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next cell
End Sub