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

[mostafa_s]

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

[generalsamad]

با سلام

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

[mostafa_s]

با سلام

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

[ATTACH=CONFIG]9331[/ATTACH]

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

[generalsamad]

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

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

[misammisam]

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

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

[mostafa_s]

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

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

[mostafa_s]

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

واسه شماره صفحه هم از این روش نیز میتونید استفاده کنید
[ATTACH=CONFIG]9332[/ATTACH]

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

[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 

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