دکمه پرینت سریع

[panahi88]

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

Sub MyPrint()
 curPrtArea = ActiveSheet.PageSetup.PrintArea
  myPrtArea = "Aq:ax"
   ActiveSheet.PageSetup.PrintArea = myPrtArea
   ActiveSheet.PrintOut
 ActiveSheet.PageSetup.PrintArea = curPrtArea
End Sub

برای اینکه قبل از پرینت تایید گرفته بشه باید چکار کرد؟

[ali.b]

Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

[امين اسماعيلي]

ba drod
mitonit az masbox yes/no ham estefade konid. ke taraf age yes ro clik kard print kone darghire in sorat biad biron. to hezaro yekshab tarfand ha file msgbox has motale konid

با درود
میتونید از masbox yes/no هم استفاده کنید که طرف اگه yes رو کلیک کرد پرینت کنه در غیر اینصورت بیاد بیرون. تو هزار و یکشب ترفند فایل msgbox هست، مطالعه کنید

[exceliran]

آیا این امکان وجو داره که تعریف کنیم درشیت موردنظرو قسمت موردنظر، باتوجه به موقعیت پرینت a5 بگیره یا a4 (محدوده پرینت متغیر باشه)؟؟؟

[misammisam]

آیا این امکان وجو داره که تعریف کنیم درشیت موردنظرو قسمت موردنظر، باتوجه به موقعیت پرینت a5 بگیره یا a4 (محدوده پرینت متغیر باشه)؟؟؟

منظورتون یه چیزی شبیه فایلی هست که در این پست گذاشتیم
فاکتور فروش همراه با تراز کلی و لیست قیمت میانگین روزانه

[exceliran]

منظورتون یه چیزی شبیه فایلی هست که در این پست گذاشتیم
فاکتور فروش همراه با تراز کلی و لیست قیمت میانگین روزانه

آره، یچیزی تو همین مایه ها . فقط من نتونستم کداشو باز کنم.
مثلا بگم بهش از سلول a1 تا اخرین سلولی که پر میشه رو بسته به میزان دیتامون در a4 یا a5 چاپ کنه.

[misammisam]

کدهایی که برای دکمه های پرینت بکار رفته در این فایل ضمیمه ببینید .