Mengubah nomor setiap kali saya mencetak

1

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?

khalid
sumber
Apakah Anda perlu melakukan semua pencetakan dalam sekali jalan, atau apakah Anda akan membuka file, mencetak sekali, menutup, ulangi beberapa saat kemudian?
Piskvor
saya akan mencetak semua dalam satu menjalankan, maka di masa depan mungkin saya ingin melanjutkan dan mengulanginya .. terima kasih
khalid

Jawaban:

2

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
Mehper C. Palavuzlar
sumber
satu-satunya masalah adalah bahwa saya tidak dapat mulai dari 100 atau 1000, selalu mulai dari 1
khalid
Ubah baris ini: For copynumber = 1 To CopiesCount sebagai For copynumber = 100 To CopiesCount
Mehper C. Palavuzlar
1

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:

  1. Meminta jumlah salinan dan nama printer
  2. Setel sel Nomor Faktur ke 0
  3. Loop untuk jumlah salinan
    1. Tambahkan nomor sel faktur
    2. Cetak dokumen ke nama printer

Edit

Halaman ini memiliki contoh untuk Word, jadi Anda bisa mengadaptasi ini untuk unggul. Halaman ini memiliki contoh kasar untuk unggul

xdumaine
sumber
atau jika Anda akan menggunakan printer yang sama setiap kali, dan selalu mencetak 100 salinan, Anda dapat melewati langkah 1.
xdumaine