پرینت صفحه nام از nشیت

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • qerenfil

    • 2017/06/09
    • 9
    #1

    پرسش پرینت صفحه nام از nشیت

    با سلام
    فایلی داریم با بیش از دویست شیت و هر شیت شامل پنجاه صفحه دیتا
    چطور با یک دستور پرینت، میشود از مثلا صفحه بیستم همه شیتها پرینت گرفت؟
    برچسب ها: چاپ، پرینت،
    • iranweld

      • 2015/03/29
      • 3341
      #2
      با سلام

      کد ذیل را تست کنید

      محدوده مورد نظر را اصلاح کنید

      کد PHP:
      Sub Macro1()

      For       i = 1 To Sheets.Count

      Sheets      (i).Select

      Sheets      (i).PageSetup.PrintArea = ""

                Sheets(i).PageSetup.PrintArea = "$a$6:$f$25"
       
                   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False  
       
           Next  
       
       End Sub 

        کامنت

        • qerenfil

          • 2017/06/09
          • 9
          #3
          نوشته اصلی توسط iranweld
          با سلام

          کد ذیل را تست کنید

          محدوده مورد نظر را اصلاح کنید

          کد PHP:
          Sub Macro1()

          For           i = 1 To Sheets.Count

          Sheets          (i).Select

          Sheets          (i).PageSetup.PrintArea = ""

                        Sheets(i).PageSetup.PrintArea = "$a$6:$f$25"
           
                           ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False  
           
               Next  
           
           End Sub 
          مممنونم از پاسخگوییتان.
          اینها کد ماکرو هستند؟ من ماکرو بلد نیستم متاسفانه

            کامنت

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