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 NewITZone Your Own Question
NewITZone
NewITZone, Computer Enthusiast
Category: Microsoft Office
Satisfied Customers: 90
Experience:  I have been using Office Pro for 10 years and implemented applications for business use.
53509759
Type Your Microsoft Office Question Here...
NewITZone is online now
A new question is answered every 9 seconds

I have a excel print Macro that is just not working

Customer Question

I have a excel print Macro that is just not working correctly. It is not printing all the Data. Please look at the "New Assembly Sheet" and click the print button. The macro only prints partial results. Please fix!
Submitted: 1 year ago.
Category: Microsoft Office
Expert:  Jess M. replied 1 year ago.

Hi, welcome and thank you for your question. My name is ***** ***** I am glad to assist you today.

I am very sorry about your issues. Can you please attach the XLSM (macro-enabled) file here? You can use the paper clip icon to attach it. Or you can upload it to http://filesXpress.com and give me the short download link.

Please let me know by replying to me here so that I can help you further.

Best regards,
Jess

Customer: replied 1 year ago.
Here you go...Im trying to print so that all columns are on one page and the rows that have alll zeros dont appear and that it takes up no more than two pages....
http://filesxpress.com/download-d63e55d19dbfb416759655621927104f
Customer: replied 1 year ago.
http://filesxpress.com/download-d63e55d19dbfb416759655621927104f
Expert:  Jess M. replied 1 year ago.

Thank you for the link. Please give me a moment to download and check the file.

Jess

Customer: replied 1 year ago.
ok
Expert:  Jess M. replied 1 year ago.

Thanks

Expert:  Jess M. replied 1 year ago.

I got your file and the printing worked. What specifically you want in the printing? You mentioned about NOT printing the rows with 0s. What specific columns with 0s are you trying to NOT include in the printing?

Customer: replied 1 year ago.
It doesnt print all the correct rows
Customer: replied 1 year ago.
It prints only one page and then just a header of second page
Customer: replied 1 year ago.
please see attached pic
Customer: replied 1 year ago.
Its missing most of the rows....
Customer: replied 1 year ago.
please review the macro
Customer: replied 1 year ago.
Sub PrintData()
Application.ScreenUpdating = False
Rows("1:160").Hidden = False
Columns("A:B").Hidden = True
For i = 3 To 160
If Cells(i, 7) = 0 And _
Cells(i, 8) = 0 And _
Cells(i, 9) = 0 And _
Cells(i, 10) = 0 And _
Cells(i, 11) = 0 And _
Cells(i, 12) = 0 And _
Cells(i, 13) = 0 And _
Cells(i, 14) = 0 And _
Cells(i, 15) = 0 And _
Cells(i, 16) = 0 Then
Rows(i & ":" & i).Hidden = True
End If
Next iActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$C$1:$Y$160"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 2
End WithActiveSheet.PrintOut
Rows("1:160").Hidden = False
End Sub
Expert:  Jess M. replied 1 year ago.

I printed in PDF, and here is the printout file. Is this printout correct?

Here is the link:

http://filesxpress.com/d-763d64ae

Customer: replied 1 year ago.
Customer: replied 1 year ago.
is it not working for me , because I am on a Mac?
Expert:  Jess M. replied 1 year ago.

Thank you for that confirmation.

If that is the correct printout, then that is printed using the blue PRINT button in the sheet named "New_Assmbly_Sheet", and NOT from the File => Print dialog box.

Also, please check your print area settings on your Excel to ensure that the print process is not restricted by your print area settings. Then try printing using the blue PRINT button on the sheet.

Keep me posted.

Jess

Related Microsoft Office Questions