نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

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

  1. #1


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

    سلام

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

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

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


  4. #3


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

    سلام

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

  5. #4


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

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


  6. #5


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

  7. سپاس ها (1)


  8. #6


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

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

  9. سپاس ها (1)


  10. #7


    آخرین بازدید
    6 روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    ♥شیراز♥
    نوشته ها
    2,062
    امتیاز
    6890
    سپاس
    18,190
    سپاس شده
    6,129 در 1,920 پست
    سطح اکسل
    72.00 %

    حسام بحرانی به  ICQ ارسال پیام حسام بحرانی به Yahoo ارسال پیام

    Question

    نقل قول نوشته اصلی توسط alisabet نمایش پست ها
    اجرا نشد عکس صفحه مونیتورم رو که خطا رو نشون میده پیوست میکنم ببنید مشکل از چیه؟
    سلام،
    با توجه به خطایی که در عکستون مشحص شده،
    احتمالاً سیستم شما از فایل هایی با فرمت Bitmap یا همون ( BMP ) پشتیبانی نمی کنه. لطفاً بررسی کنید.
    موفق باشید.
    !With God all things are possible





  11. #8


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. گذاشتن کلید میانبر برای کلیدهای یوزرفرم
    توسط shamsololama در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 8
    آخرين نوشته: 2017/09/06, 20:15
  2. فراخوان یوزرفرم ازفایل اکسل دیگر
    توسط حسینعلی در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2014/07/17, 20:07
  3. نماش عکس متحرک در یوزر فرم
    توسط Haji hadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/10/06, 18:28
  4. یوزرفرم
    توسط payam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2013/03/27, 17:24
  5. قرار دادن نمودار در یوزرفرم
    توسط s.cheraghi در انجمن آموزش موضوعات (گرافيك ،چارت ،نمودار)
    پاسخ ها: 2
    آخرين نوشته: 2013/03/02, 18:42

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

پرینت یوزر فرم اکسل

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

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است