گرفتن 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 اونو باز کن با و اونجا راحت پرینت پریو بگیر. یه چیز دیگه هم میتونه به این صورت باشه که وقتی دکمه رو میزنیم اندازه عکس به اندازه فرم در بیاد و بعد همون دستور جناب وطن پرست عمل کنی ...