زدن شماره صفحه به صورت خودكار

[mostafa_s]

سلام دوستان عزيز و گرامي :
چطور ميتونم موقع پرينت گرفتن از صفحه اكسل كاري كنم كه شماره صفحه ها به صورت خودكار زده شه مثال فرض كنيد يك صفحه دارم كه ميخوام 20 بار پرينت بگيرم كه موقع پرينت به اين صورت بزنه 1 از 20 .....الي اخر 20 از 20 ممنون ميشم كمك كنيد

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[generalsamad]

با سلام

طبق شکل زیر عمل کنید
ببینید کمکتون میکنه

[mostafa_s]

با سلام

طبق شکل زیر عمل کنید
ببینید کمکتون میکنه

ممنونم نشد در ضمن ميخوام توي يه كادر خاص بزنه

[generalsamad]

یه روش اینه که یه شی از نوع عکس توی header یا footer اضافه کنید که بصورت کادر باشه که موقع چاپ کادر دور شماره صفحه بخوره

واسه شماره صفحه هم از این روش نیز میتونید استفاده کنید

[misammisam]

سلام دوستان عزيز و گرامي :
چطور ميتونم موقع پرينت گرفتن از صفحه اكسل كاري كنم كه شماره صفحه ها به صورت خودكار زده شه مثال فرض كنيد يك صفحه دارم كه ميخوام 20 بار پرينت بگيرم كه موقع پرينت به اين صورت بزنه 1 از 20 .....الي اخر 20 از 20 ممنون ميشم كمك كنيد

سلام
شما یک صفحه دارید میخواید 20 بار چاپ بشه و هر بار با یک شماره صفحه جدید یا 20 تا صفحه دارید میخواهید شماره صفحه بخورن به ترتیب ار 1 تا 20 ؟؟؟؟

[mostafa_s]

سلام
شما یک صفحه دارید میخواید 20 بار چاپ بشه و هر بار با یک شماره صفحه جدید یا 20 تا صفحه دارید میخواهید شماره صفحه بخورن به ترتیب ار 1 تا 20 ؟؟؟؟

سلام یه صفحه دارم که میخوام به تعداد صفحه ها شماره بزنه

[mostafa_s]

یه روش اینه که یه شی از نوع عکس توی header یا footer اضافه کنید که بصورت کادر باشه که موقع چاپ کادر دور شماره صفحه بخوره

واسه شماره صفحه هم از این روش نیز میتونید استفاده کنید

درسته همینه اما میخوام توی یه کادر مخصوص بزنه به چه شکل میتونم این کار رو بکنم این ÷ایین صفحه میزنه

[kohan]

[mokaram]

اگر منظورتون اینه که در سل مشخصی شماره صفحه قرار بگیره با استفاده از قطعه کد زیر و اختصاص اون به یک دکمه کارت راه می افته

به فرض اینکه شما می خوای شماره صفحت تو سل V2 بخوره

Sub printV2()
Dim a, b
a = InputBox("Please enter  starting page number")
b = InputBox("Please enter  last page number ")
For i = a To b
    Sheet1.Range("v2").Value = i
    Sheet1.PrintOut
Next i
End Sub 

[mostafa_s]

اگر منظورتون اینه که در سل مشخصی شماره صفحه قرار بگیره با استفاده از قطعه کد زیر و اختصاص اون به یک دکمه کارت راه می افته

به فرض اینکه شما می خوای شماره صفحت تو سل V2 بخوره

Sub printV2()
Dim a, b
a = InputBox("Please enter  starting page number")
b = InputBox("Please enter  last page number ")
For i = a To b
    Sheet1.Range("v2").Value = i
    Sheet1.PrintOut
Next i
End Sub 

سپاسگزارم از وقتتون براي بنده