پرینت پریویو هوشمند

[javadsar]

اساتید لطفا کد پایین را بررسی نمایید و نظرتون را درباره اینکه آیا میشود بگونه ای کد پایین را اصلاح کرد که وقتی پرینت پریویو انجام میشود تا ردیفی که در شیت دیتا وجود دارد بصورت اتوماتیک تنظیم شود . ......البته شاید بهتر است بگوییم آیا میشود print area را بصورت هوشمند و تا ردیفی که در شیت دیتا وجود دارد set کرد.

Private Sub CommandButton1_Click()
Application.Windows.Application.Visible = True
UserForm15.Hide
UserForm12.Hide
UserForm1.Hide
Sheet13.Range("c3") = TextBox1.Value
Sheet13.PrintPreview
Application.Windows.Application.Visible = False
UserForm15.Show
UserForm12.Show
UserForm1.Show
End Sub

[Amir Ghasemiyan]

اساتید لطفا کد پایین را بررسی نمایید و نظرتون را درباره اینکه آیا میشود بگونه ای کد پایین را اصلاح کرد که وقتی پرینت پریویو انجام میشود تا ردیفی که در شیت دیتا وجود دارد بصورت اتوماتیک تنظیم شود . ......البته شاید بهتر است بگوییم آیا میشود print area را بصورت هوشمند و تا ردیفی که در شیت دیتا وجود دارد set کرد.

Private Sub CommandButton1_Click()
Application.Windows.Application.Visible = True
UserForm15.Hide
UserForm12.Hide
UserForm1.Hide
Sheet13.Range("c3") = TextBox1.Value
Sheet13.PrintPreview
Application.Windows.Application.Visible = False
UserForm15.Show
UserForm12.Show
UserForm1.Show
End Sub

ببخشيد من جاي اساتيد جواب ميدم.

از اين كد كمك بگيرين

Dim a As String
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.PrintPreview

اگر بخواين تنظيماتي هم اعمال كنيد از اين كد و مشابه آن استفاده كنيد

Dim a As String
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
With ActiveSheet.PageSetup
    .CenterHorizontally = False
    .CenterVertically = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    End With
Selection.PrintPreview

[javadsar]

این کد جواب نداد عزیز جان......لطفا اساتید عزیز بررسی کنند

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

با درود
دوست عزیز شما یه ماکرو ضبط کن ابتدا یه محدوده مثلا A1:C10 رو set print area قرار بده.بعدش یه پرینت پردیو بگیر بعد ماکرد رو متوقف کن.
مرحله دو پویا کردن رنج شماست که کافیه یک متغییر برای پیدا کردن ردیف اخر تعریف کنید . که نمونه فایل هایی که در اون این متغییر استفاده میشه بسیار در سایت یافت میشه. اگر کدی رو من نوشته باشم این متغییر رو با Lastrow تعریف کردم.
حداقل ازتون انتظار دارم مرحله اول رو خودتون انجام بدین

[علی فاطمی]

با سلام
یه سر به تاپیک زیر بزن شاید کمکت کنه چون من قبلا با این مشکل مواجه شدم و با سعی خطا و کمک دوستان بخصوص جناب اسماعیلی یه جورایی آماتوری حلش کردم که البته برای صفحات با تعداد زیاد یه خورده مشکل خواهد بود.
محدود کردن page در print یک شیت به صورت اتوماتیک با دستور vb