گرفتن printpreview از userform

[m-esmaeilzadeh]

با سلام
من در یک یوزر فرم تصویری دارم که می*خوام ازش پرینت پریویوبگیرم. آیا این امکان وجود داره؟ ممنون میشم اگه کمک کنید.

[~M*E*H*D*I~]

اگر قصد پرینت گرفتن دارید از کد زیر استفاده کنید

userform1.PrintForm 

[m-esmaeilzadeh]

ممنونم از راهنماییتون در واقع می*خوام از image داخل فرم پرینت گرفته بشه.

[~M*E*H*D*I~]

ممنونم از راهنماییتون در واقع می*خوام از image داخل فرم پرینت گرفته بشه.

نیاز به بررسی داره ببینم راهی هست حتما جواب میدم

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

با درود
شاید مناسب حال شما نباشه ولی خب الان این به ذهنم میرسه
اینکه ما یه ایمیج با کنترل در بخش DEVELOPER قسمت INSERT تو شیت بزاریم و مثلا اندازشو روی یک محدوده ست کنیم مثلا E4:H19 . حالا ما اول اون عکس تو یوزر فرم رو میفرستیم به این ایمیج و بعد یه setprintarea میزاریم رو محدودمون و بعدش از شیت پرینت پریویو میگیریم یادمونم میمونه که فرم رو هاید کنیم.
مثل کد زیر . یادمونم باشه که یه image1 تو شیت تو اون محدوده ست کرده باشیم . نحوه نمایش هر دو رو هم رو stretch بزارین که هم تو فرم و هم تو شیت که درست نمایش بده.
همچین چیزی

Sheets(1).Image1.Visible = True
With Sheets(1).Image1
    .Picture = UserForm1.Image1.Picture
    .AutoSize = False
    .CopyPicture
    
End With
Me.Hide
 ActiveSheet.PageSetup.PrintArea = "$E$4:$H$19"
    ActiveSheet.PrintPreview
Me.Show

اینو من برای یه button نوشتم .

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