ایجاد کلید جت پرینت نواحی مختلف در یک شیت

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • rm58

    • 2015/03/01
    • 66
    • 55.00
    #1

    [حل شده] ایجاد کلید جت پرینت نواحی مختلف در یک شیت

    با سلام خدمت دوستان و اساتید گرامی
    چطور میتونم کلیدهایی را تعریف کنم که مثلاً:
    کلید 1 دستور پرینت ناحیه a1 تا n10
    کلید دوم پرینت ناحیه a11 تا n20
    و همینطور برای بقیه نواحی مورد نظر دستور پرینت آن اجرا بشه.
    با سپاس از اساتید بزرگوار
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      سلام دوست عزيز
      براي هر پرينت يك كد مشابه اين بايد ايجاد كنيد. فقط رنج پرينت رو تغيير بديد:

      کد:
      Sub print1()
    Range("A1:N10").Select
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

        کامنت

        • rm58

          • 2015/03/01
          • 66
          • 55.00
          #3
          سپاس فراوان و تشکر


          نوشته اصلی توسط Amir Ghasemiyan
          سلام دوست عزيز
          براي هر پرينت يك كد مشابه اين بايد ايجاد كنيد. فقط رنج پرينت رو تغيير بديد:

          کد:
          Sub print1()
    Range("A1:N10").Select
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

            کامنت

            قبلی template بعدی
            چند لحظه..