تنظیم حاشیه در پرینت یوزر فرم

[alisabet]

سلام

من میخواهم فقط یوزر فرم را با فرامین vba پرینت کنم اما اکسل آن را در منتهی الیه کاغذ و بدون حاشیه پرینت میکند و گویا بجز دستور me.prinform امکان دیگری موجود نمی باشد یه جستجو توی گوگل کردم کد های زیر را پیدا کردم

Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False,
DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub

اما در هنگام اجرای کد های فوق در قسمتی که قرمز کرده ام متوقف میشود خواهشمندم اساتید محترم خط دوم را توضیح دهند و چرا سیستم در این خط پیام خطای فانکشن پیدا نشد را صادر میکند

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

با درود
برای یوزر فرمت یه باتن بزار که مثلا command-button 1 هست. بعدد ببین این کد به کارت میاد . پرینترم نصب داشته باش یا adobe Pro یا Nitro Pro که حالت پرینتری پیدا میکنن اگر به عنوان پرینتر انتخابشون کنی -

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1

Private Sub CommandButton1_Click()
    DoEvents
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
        KEYEVENTF_KEYUP, 0
    DoEvents
    Workbooks.Add
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
        DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
    'added to force landscape
    ActiveSheet.PageSetup.Orientation = xlLandscape
   
  
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With

    ActiveSheet.PageSetup.PrintArea = ""
   
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        '.PrintQuality = 300
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
End Sub

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

[alisabet]

سلام

من تست كردم نشد و درست هم متوجه نشدم كد ها را كجا كپي كنم اگه امكان داره اون فايلي رو كه خودتون تست كرديد رو ضميمه كنيد - متشكر

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

با درود
فایل زیر رو یه نگاه کنین .

[alisabet]

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

[misammisam]

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

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

[حسام بحرانی]

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

سلام،
با توجه به خطایی که در عکستون مشحص شده، احتمالاً سیستم شما از فایل هایی با فرمت Bitmap یا همون ( BMP ) پشتیبانی نمی کنه. لطفاً بررسی کنید.
موفق باشید.

[alisabet]

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

سلام مشکل من هم حل شد علت عدم اجرا این بود که من دو تا ویندوز دارم از تو یکی فایل شما رو دانلود کردم چون ویندوزم 64 بیتی بود وارد سیستم عامل دیگر می شدم و میخواستم از همانجا فایل دانلودی را که درون document سیتم عامل دیگر بود را اجرا کنم لذا پیغام خطا ناشی از عدم مجوز دسترسی بود - از زحمات شما متشکرم