Cetak Setiap Nilai Di Medan Halaman - Petua Excel

Isi kandungan

Raj bertanya:

Saya telah menyediakan jadual pangsi Excel dengan 150 nilai yang berbeza di medan halaman. Bagaimana saya boleh menjalankan makro untuk mencetak setiap halaman? Saya cuba merakam makro, tetapi dengan keras memberi kod nama setiap halaman, dan beberapa halaman tersebut mungkin tidak ada dari minggu ke minggu.

Visual Basic menjadikan ini mudah. Makro ini menggunakan yang berikut:

  • The PageFields koleksi akan memberitahu anda nama medan halaman pertama dalam jadual pangsi.
  • The PivotItems koleksi adalah senarai semua barang-barang (muka surat) dalam bidang halaman.
  • The CurrentPage hartanah membolehkan anda untuk menukar halaman yang dipaparkan dalam jadual pangsi.
Sub PrintAll() ' Find name of page field PageField1 = ActiveSheet.PivotTables("PivotTable1").PageFields(1) ' Save the name of the page field displayed when macro begins OrigPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage ' Determine how many pages there are in page field NumPages = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems.Count For i = 1 To NumPages ThisPage = ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).PivotItems(i) ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = ThisPage ActiveWindow.SelectedSheets.PrintOut Next i ' Print the (all) page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = "(all)" ActiveWindow.SelectedSheets.PrintOut ' Restore view back to original page ActiveSheet.PivotTables("PivotTable1").PivotFields(PageField1).CurrentPage = OrigPage End Sub

Petua topi kepada Raj untuk melaporkan kembali dengan petunjuk ini. Makro di atas tidak akan berfungsi apabila jadual pangsi anda disusun di bawah Advanced. Menetapkan semula ini ke manual akan menyelesaikan masalah.

Catatan

Petua ini akan melintasi setiap bidang halaman untuk mencetaknya. Sekiranya anda ingin menghasilkan buku kerja dengan 150 lembar kerja yang berbeza, satu untuk setiap nilai bidang halaman, anda boleh menggunakan ciri Tunjukkan Halaman.

Artikel menarik...