How JustAnswer Works:

  • Ask an Expert
    Experts are full of valuable knowledge and are ready to help with any question. Credentials confirmed by a Fortune 500 verification firm.
  • Get a Professional Answer
    Via email, text message, or notification as you wait on our site.
    Ask follow up questions if you need to.
  • 100% Satisfaction Guarantee
    Rate the answer you receive.

Ask Richard Your Own Question

Richard
Richard, Software Specialist
Category: Microsoft Office
Satisfied Customers: 16842
Experience:  Over 15 year experience resolving Microsoft Office Issues
32989067
Type Your Microsoft Office Question Here...
Richard is online now
A new question is answered every 9 seconds

I want a macro so that I can print multiple pages (with a specific

Resolved Question:

I want a macro so that I can print multiple pages (with a specific range on each page) on my workbook by pressing a button on the 1st page. Excel 2007
Submitted: 1 year ago.
Category: Microsoft Office
Expert:  Richard replied 1 year ago.
Thank you for your question, my name is Richard.

This is the Macro you would use

Sub mPrint()

Sheet("sheet2").Select
Range("A2:F15").Select
ActiveSheet.PageSetup.PrintArea = "A2:F15"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

end sub

You replace sheet name and range with the values you wish.

If you have any difficulties at all, please do not hesitate to let me know so I can assist you further

Thank you

Customer: replied 1 year ago.

The macro:


Sheet("Cover").Select


Range(B1:I59).Select


ActiveSheet.PageSetup.PrintArea = "B1:I59"


ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate_:=True


 


 


End Sub


Has an error: "Compile error: Sub or Function not defined with "Sheet" being highlited"

Expert:  Richard replied 1 year ago.
You forgot the " on this

Range(B1:I59).Select

It needs to be

Range("B1:I59").Select
Customer: replied 1 year ago.

Still not working


Have uploaded workbook: File ID 617016


 


Pse add the first 2 pages with any range, I will do the rest


 


Thank you


 

Expert:  Richard replied 1 year ago.
Fixed Mick

you can download it under File ID: 930724

Let me know if you have any difficulties please

Customer: replied 1 year ago.

I tried to add a another page and range but was unsuccesfull


What do I need to change on this:


 


Sub mPrint()


 


Sheets("Cover,Info").Select


Range("B1:I59,B3:J46").Select


ActiveSheet.PageSetup.PrintArea = "B1:I59,B3:J46" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


 


End Sub

Expert:  Richard replied 1 year ago.
You cannot make the range twice in one command like what you do below

Range("B1:I59,B3:J46").Select

You need to do one sheet at a time.

So it would be


Sub mPrint()



Sheets("Cover,Info").Select

Range("B1:I59").Select

ActiveSheet.PageSetup.PrintArea = "B1:I59,B3:J46" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


Sheets("Cover,Info").Select

Range("B3:J46").Select

ActiveSheet.PageSetup.PrintArea = "B1:I59,B3:J46" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


End Sub
Customer: replied 1 year ago.

I'm sorry if I don't understand.


My 1st page is "Cover" the 2nd "Info".The macro underneath prints the 1st page but not the second, it also has Visual Basic 400 error?


 


Sub mPrint()


 


Sheets("Cover").Select


Range("B1:I59").Select


ActiveSheet.PageSetup.PrintArea = "B1:I59" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


 


Sheets("Info").Select


Range("B3:J46").Select


ActiveSheet.PageSetup.PrintArea = "B3:J46" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1


 


End Sub

Expert:  Richard replied 1 year ago.
I did it for you here Mick

File ID: 384042

Let me know if you have any difficulties please

Richard, Software Specialist
Category: Microsoft Office
Satisfied Customers: 16842
Experience: Over 15 year experience resolving Microsoft Office Issues
Richard and 2 other Microsoft Office Specialists are ready to help you

JustAnswer in the News:

 
 
 
Ask-a-doc Web sites: If you've got a quick question, you can try to get an answer from sites that say they have various specialists on hand to give quick answers... Justanswer.com.
JustAnswer.com...has seen a spike since October in legal questions from readers about layoffs, unemployment and severance.
Web sites like justanswer.com/legal
...leave nothing to chance.
Traffic on JustAnswer rose 14 percent...and had nearly 400,000 page views in 30 days...inquiries related to stress, high blood pressure, drinking and heart pain jumped 33 percent.
Tory Johnson, GMA Workplace Contributor, discusses work-from-home jobs, such as JustAnswer in which verified Experts answer people’s questions.
I will tell you that...the things you have to go through to be an Expert are quite rigorous.
 
 
 

What Customers are Saying:

 
 
 
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
< Last | Next >
  • My Expert answered my question promptly and he resolved the issue totally. This is a great service. I am so glad I found it I will definitely use the service again if needed. One Happy Customer New York
  • Wonderful service, prompt, efficient, and accurate. Couldn't have asked for more. I cannot thank you enough for your help. Mary C. Freshfield, Liverpool, UK
  • This expert is wonderful. They truly know what they are talking about, and they actually care about you. They really helped put my nerves at ease. Thank you so much!!!! Alex Los Angeles, CA
  • Thank you for all your help. It is nice to know that this service is here for people like myself, who need answers fast and are not sure who to consult. GP Hesperia, CA
  • I couldn't be more satisfied! This is the site I will always come to when I need a second opinion. Justin Kernersville, NC
  • Just let me say that this encounter has been entirely professional and most helpful. I liked that I could ask additional questions and get answered in a very short turn around. Esther Woodstock, NY
  • Thank you so much for taking your time and knowledge to support my concerns. Not only did you answer my questions, you even took it a step further with replying with more pertinent information I needed to know. Robin Elkton, Maryland
 
 
 

Meet The Experts:

 
 
 
  • jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
< Last | Next >
  • http://ww2.justanswer.com/uploads/JS/jstinehelfer/2012-6-6_215146_Pictureofme1.64x64.png jstinehelfer's Avatar

    jstinehelfer

    Information Systems Manager

    Satisfied Customers:

    36
    A+ Comptia Certified computer repair
  • http://ww2.justanswer.com/uploads/JA/JasonJames122/2011-12-16_135647_jasonjamesheadshotweb.64x64.jpg JasonJames122's Avatar

    JasonJames122

    Computer Enthusiast

    Satisfied Customers:

    0
    I manage all information systems (network of Windows PC's and servers with Microsoft Office products) for a small business
  • http://ww2.justanswer.com/uploads/JE/jessmagz/2012-6-6_18129_jm.64x64.jpg Jess M.'s Avatar

    Jess M.

    Computer Support Specialist

    Satisfied Customers:

    301
    Computer Software Specialist for more than 10 years
  • http://ww2.justanswer.com/uploads/CH/chutz747/2011-11-6_14231_me.64x64.jpg The-PC-Guy's Avatar

    The-PC-Guy

    Computer Manager

    Satisfied Customers:

    274
    20 years experience providing remote computer support
  • http://ww2.justanswer.com/uploads/SP/spherrod/2012-6-6_174244_1000852.64x64.JPG Steve Herrod's Avatar

    Steve Herrod

    Computer Support Specialist

    Satisfied Customers:

    125
    Trained in Microsoft Office from 2000 through to latest version 2010.
  • http://ww2.justanswer.com/uploads/SE/Seashore2011/2011-12-6_33418_111205223015.64x64.jpg Chris L.'s Avatar

    Chris L.

    Support Specialist

    Satisfied Customers:

    124
    Certified Expert with over 10 years experience.
  • http://ww2.justanswer.com/uploads/KR/krkljatorm/2012-6-24_153417_ITMiro.64x64.jpg IT Miro's Avatar

    IT Miro

    Computer Scientist

    Satisfied Customers:

    97
    Bachelor's Degree in Information Technology, Microsoft Certified Professional
 
 
 

Related Microsoft Office Questions