हर बार प्रिंट करते समय एक नंबर बदलना

Question

मेरे पास एक एक्सेल शीट है जिसे मैं एक चालान के रूप में उपयोग करता हूं।

मैं 100 पेज प्रिंट करना चाहता हूं और मैं चाहता हूं कि चालान नंबर 1 से बदलकर 100 हो जाए, ताकि हर पेपर का अलग चालान नंबर हो।

मैं यह कैसे कर सकता हूँ?

Comments

क्या आपको एक बार में सभी प्रिंटिंग करने की ज़रूरत है, या आप फ़ाइल खोलने जा रहे हैं, एक बार प्रिंट करें, बंद करें, कुछ समय बाद दोहराएं?

— पिस्कवॉर

मैं एक समय में सभी मुद्रण होगा, तो भविष्य में हो सकता है मैं जारी रखने के लिए और यह दोहराना चाहते हैं .. धन्यवाद

— खालिद

Answer 1

उसके लिए आपको एक मैक्रो चाहिए। मैंने निम्नलिखित मैक्रो पाया और उस पर कुछ बदलाव किए। यह देखने की कोशिश करें कि क्या यह सही ढंग से काम करता है:

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

Comments

एकमात्र समस्या यह है कि मैं 100 या 1000 से शुरू नहीं कर सकता, हमेशा यह 1 से शुरू होता है

— खालिद

इस पंक्ति को बदलें: For copynumber = 1 To CopiesCountजैसेFor copynumber = 100 To CopiesCount

— मेहपर सी। पलुवज़लर 25'10

Answer 2

मैं ऐसा करने के लिए एक मैक्रो का उपयोग करूंगा, क्योंकि ऐसा करने के लिए एक आसान, निर्मित विधि नहीं लगती है। मैक्रो की रूपरेखा बहुत सरल होगी। इस प्रकृति का कुछ:

1. प्रतियों की संख्या और प्रिंटर के नाम के लिए शीघ्र
2. चालान नंबर सेल को 0 पर सेट करें
3. प्रतियों की संख्या के लिए लूप
   1. इनवॉइस सेल नंबर बढ़ाएँ
   2. दस्तावेज़ को प्रिंटर नाम से प्रिंट करें

संपादित करें

इस पृष्ठ में Word के लिए इसका एक उदाहरण है, इसलिए आप इसे एक्सेल में बदल सकते हैं। इस पृष्ठ में एक्सेल के लिए एक मोटा उदाहरण है

Comments

या यदि आप हर बार एक ही प्रिंटर का उपयोग करने जा रहे हैं, और हमेशा 100 प्रतियां प्रिंट करते हैं, तो आप चरण 1 को छोड़ सकते हैं

— xdumaine