مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

خروجی pdf

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kazem1359

    • 2018/06/08
    • 331
    • 39.00

    پرسش خروجی pdf

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

  • kazem1359

    • 2018/06/08
    • 331
    • 39.00

    #2
    سلام نبود کسی یک کد برای محدوده خاصی برای پرینت بده؟

    کامنت

    • alfa

      • 2012/05/18
      • 157
      • 4.00

      #3
      سلام
      دو صفحه باز شدن PDF در سیستم ها مربوط به تنظیمات VIEW همان سیستم است
      که باید تک صفحه یا چند صفحه تنظیم شود
      [FONT=tahoma]:Smilebb (31):[/FONT]

      کامنت

      • alfa

        • 2012/05/18
        • 157
        • 4.00

        #4
        ضمنا از این کد ها میتوانید استفاده کنید


        Application.PrintCommunication = False
        With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        '.PrintArea = Worksheets(ReportWsName).UsedRange
        .FitToPagesWide = 1
        '.FitToPagesTall = 1
        End With
        Application.PrintCommunication = True








        یا






        'Format Print Area to one Page
        With ActiveSheet.PageSetup
        .PrintArea = Worksheets(ReportWsName).UsedRange
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .Zoom = False 'I have added this line
        End With








        یا










        'Format Print Area to one Page
        With ActiveSheet.PageSetup
        .PrintArea = Worksheets(ReportWsName).UsedRange
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Zoom = False 'I have added this line
        End With


        [FONT=tahoma]:Smilebb (31):[/FONT]

        کامنت

        • kazem1359

          • 2018/06/08
          • 331
          • 39.00

          #5
          سلام مشکل حل نشد

          کامنت

          چند لحظه..