Saya memiliki lembar Excel yang saya gunakan sebagai faktur.
Saya ingin mencetak 100 halaman dan saya ingin nomor faktur berubah dari 1 menjadi 100, sehingga setiap kertas akan memiliki nomor faktur yang berbeda.
Bagaimana saya bisa melakukan ini?
Saya memiliki lembar Excel yang saya gunakan sebagai faktur.
Saya ingin mencetak 100 halaman dan saya ingin nomor faktur berubah dari 1 menjadi 100, sehingga setiap kertas akan memiliki nomor faktur yang berbeda.
Bagaimana saya bisa melakukan ini?
Jawaban:
Anda membutuhkan makro untuk itu. Saya menemukan makro berikut dan membuat beberapa perubahan di atasnya. Cobalah untuk melihat apakah itu berfungsi dengan benar:
Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.
For copynumber = 1 To CopiesCount
With ActiveSheet
.Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
.PrintOut 'Print the sheet
End With
Next copynumber
End Sub
For copynumber = 1 To CopiesCount
sebagai For copynumber = 100 To CopiesCount
Saya akan menggunakan makro untuk melakukan ini, karena sepertinya tidak ada yang mudah, dibangun dalam metode melakukan ini. Garis besar makro akan sangat sederhana. Sesuatu dari sifat ini:
Edit
Halaman ini memiliki contoh untuk Word, jadi Anda bisa mengadaptasi ini untuk unggul. Halaman ini memiliki contoh kasar untuk unggul