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

موضوع: کد تنظیمات پرینتر در vba چیست؟

  1. #1


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    کد تنظیمات پرینتر در vba چیست؟

    با سلام و احترام
    من یک فرمی دارم که میخوام با زدن دکمه چاپ اول تنظیمات چاپ رو بیاره و بعد پرینت بگیره ...
    چون من میخوام فرمم به صورت افقی ازش پرینت گرفته بشه...ممنونم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست


  2.  

  3. #2


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    من خودم با ضبط یک ماکرو به این رسیدم برای پرینتی که تنظمات رو باز کردم و بعد پرینت رو زدم :


    کد PHP:
    Sub priiiint()
    '
    priiiint Macro
    '

    '
        
    Application.PrintCommunication False
        With ActiveSheet
    .PageSetup
            
    .PrintTitleRows ""
            
    .PrintTitleColumns ""
        
    End With
        Application
    .PrintCommunication True
        ActiveSheet
    .PageSetup.PrintArea ""
        
    Application.PrintCommunication False
        With ActiveSheet
    .PageSetup
            
    .LeftHeader ""
            
    .CenterHeader ""
            
    .RightHeader ""
            
    .LeftFooter ""
            
    .CenterFooter ""
            
    .RightFooter ""
            
    .LeftMargin Application.InchesToPoints(0)
            .
    RightMargin Application.InchesToPoints(0)
            .
    TopMargin Application.InchesToPoints(0.196850393700787)
            .
    BottomMargin Application.InchesToPoints(0.196850393700787)
            .
    HeaderMargin Application.InchesToPoints(0.31496062992126)
            .
    FooterMargin Application.InchesToPoints(0.31496062992126)
            .
    PrintHeadings False
            
    .PrintGridlines False
            
    .PrintComments xlPrintNoComments
            
    .CenterHorizontally True
            
    .CenterVertically False
            
    .Orientation xlLandscape
            
    .Draft False
            
    .PaperSize xlPaperA4
            
    .FirstPageNumber xlAutomatic
            
    .Order xlDownThenOver
            
    .BlackAndWhite False
            
    .Zoom False
            
    .FitToPagesWide 1
            
    .FitToPagesTall 1
            
    .PrintErrors xlPrintErrorsDisplayed
            
    .OddAndEvenPagesHeaderFooter False
            
    .DifferentFirstPageHeaderFooter False
            
    .ScaleWithDocHeaderFooter True
            
    .AlignMarginsHeaderFooter True
            
    .EvenPage.LeftHeader.Text ""
            
    .EvenPage.CenterHeader.Text ""
            
    .EvenPage.RightHeader.Text ""
            
    .EvenPage.LeftFooter.Text ""
            
    .EvenPage.CenterFooter.Text ""
            
    .EvenPage.RightFooter.Text ""
            
    .FirstPage.LeftHeader.Text ""
            
    .FirstPage.CenterHeader.Text ""
            
    .FirstPage.RightHeader.Text ""
            
    .FirstPage.LeftFooter.Text ""
            
    .FirstPage.CenterFooter.Text ""
            
    .FirstPage.RightFooter.Text ""
        
    End With
        Application
    .PrintCommunication True
        ActiveWindow
    .SelectedSheets.PrintOut Copies:=1Collate:=True_
            IgnorePrintAreas
    :=False
    End Sub 

    ولی فکر میکنم یه جای کار ایراد داره و این الان داینامیک عمل نمیکنه و کجای کد رو تغییر بدم که از شیت پرینت نگیره از فرم مورد نظرم بگیره
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست


  4. #3

    آخرین بازدید
    2017/05/02
    تاریخ عضویت
    March 2017
    نوشته ها
    4
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    ایجاد یک دکمه(شکل های هندسی) در شیت مورد نظر و
    کدPHP:

    Sub printpreview()
    ActiveSheet.printpreview


    End Sub

  5. #4


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط hadi_tt نمایش پست ها
    ایجاد یک دکمه(شکل های هندسی) در شیت مورد نظر و
    کدPHP:

    Sub printpreview()
    ActiveSheet.printpreview


    End Sub
    یا سلام
    بتده سوالم برای فرم بود نه شیت

    و منظور یک همچین کدی در وی بی بود :


    On Error Resume Next
    Application.Dialogs(xlDialogPrint).Show
    UserForm14.printform
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست



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

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

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

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

  1. اینفو گرافیک چیست؟
    توسط mokaram در انجمن زنگ تفریح اکسل - Recess
    پاسخ ها: 0
    آخرين نوشته: 2015/03/10, 09:20
  2. اسناد خزانه چیست؟
    توسط ~M*E*H*D*I~ در انجمن مباحث مالی-بانکی-موقعیت های سرمایه گذاری
    پاسخ ها: 1
    آخرين نوشته: 2014/06/23, 20:27
  3. مشکل کد درفرم چیست؟
    توسط ali911 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/09/17, 08:27
  4. XML چیست؟
    توسط mahsa shayesteh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2012/08/21, 10:00

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

کد پرینت گرفتن در اکسل با vb

تعیین پرینتر در vba

پرینت با vba

https:forum.exceliran.comshowthread.php11057-کد-تنظیمات-پرینتر-در-vba-چیست؟

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

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

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