Tjyylli

How should I respond when I lied about my education and the company finds out through background check?

Query about absorption line spectra

Drawing ramified coverings with tikz

Gibbs free energy in standard state vs. equilibrium

Proving a function is onto where f(x)=|x|.

Is it improper etiquette to ask your opponent what his/her rating is before the game?

Some numbers are more equivalent than others

What major Native American tribes were around Santa Fe during the late 1850s?

Is camera lens focus an exact point or a range?

Greatest common substring

Can a significant change in incentives void an employment contract?

What is the gram­mat­i­cal term for “‑ed” words like these?

Folder comparison

Difference between -| and |- in TikZ

What's the difference between 違法 and 不法?

Is XSS in canonical link possible?

Proof of Lemma: Every nonzero integer can be written as a product of primes

Two-sided logarithm inequality

Drawing a topological "handle" with Tikz

Open a doc from terminal, but not by its name

Find last 3 digits of this monster number

Why is Arduino resetting while driving motors?

How do ground effect vehicles perform turns?

Can somebody explain Brexit in a few child-proof sentences?

Creating Macro to print selected cells

How can I export a generic page range to PDF using Microsoft Office *without* a PDF printer?MS Excel 2007 Warning Significant loss of functionalitySort with a MacroHow to import several worksheets from a single Excel file to Microsoft Word document as linked and updateable objects?Return to selected page after macro runsExcel 2015 Macro/Equation Copy Specific Data from one worksheet to anotherExcel - vlookup for multiple to return value from multiple csv filesHow do you use COUNTIF function to compare a column of text to a date?Moving selected cell data in excel right or left without using cut + paste or, copy and paste. Move data with arrow keys would be greatHow can I clear Active Row using VBA?

0

I am trying to record a Macro to print selected cells then return the worksheet to its original format. I am hiding columns B through H, printing A7:I68. While recording the Macro the print comes out correct. Once saved it only prints column A7:A68, does not include column I.

ActiveSheet.Unprotect

Columns("B:H").Select

Selection.EntireColumn.Hidden = True

Range("A7:I68").Select

ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"

Selection.PrintOut Copies:=1, Collate:=True

Columns("A:I").Select

Selection.EntireColumn.Hidden = False

ActiveWindow.SmallScroll Down:=-72

Range("A10").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

    False

Any Suggestions?

microsoft-excel macros

share|improve this question

edited Mar 30 '17 at 17:09

Tina Stone

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

bumped to the homepage by Community♦ 7 mins ago

This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Edit the question and insert your Macro
  
  – yass
  Mar 30 '17 at 16:49
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Go into the macro, and press F8. See what happens, and press F8 and see what happens, step by step. Maybe it's not hiding the columns properly. Maybe it's not selecting the print area - stepping into a macro is a decent troubleshooting step.
  
  – Selkie
  Mar 30 '17 at 19:57
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Selkie, Thank you for your suggestion, I tried it but got the same result. The print area is set up correct in the macro but the output is still only column A. ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68". Any other ideas?
  
  – Tina Stone
  Mar 31 '17 at 13:24
  

  
  
  
  

add a comment | 

0

I am trying to record a Macro to print selected cells then return the worksheet to its original format. I am hiding columns B through H, printing A7:I68. While recording the Macro the print comes out correct. Once saved it only prints column A7:A68, does not include column I.

ActiveSheet.Unprotect

Columns("B:H").Select

Selection.EntireColumn.Hidden = True

Range("A7:I68").Select

ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"

Selection.PrintOut Copies:=1, Collate:=True

Columns("A:I").Select

Selection.EntireColumn.Hidden = False

ActiveWindow.SmallScroll Down:=-72

Range("A10").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

    False

Any Suggestions?

microsoft-excel macros

share|improve this question

edited Mar 30 '17 at 17:09

Tina Stone

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

bumped to the homepage by Community♦ 7 mins ago

This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Edit the question and insert your Macro
  
  – yass
  Mar 30 '17 at 16:49
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Go into the macro, and press F8. See what happens, and press F8 and see what happens, step by step. Maybe it's not hiding the columns properly. Maybe it's not selecting the print area - stepping into a macro is a decent troubleshooting step.
  
  – Selkie
  Mar 30 '17 at 19:57
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Selkie, Thank you for your suggestion, I tried it but got the same result. The print area is set up correct in the macro but the output is still only column A. ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68". Any other ideas?
  
  – Tina Stone
  Mar 31 '17 at 13:24
  

  
  
  
  

add a comment | 

I am trying to record a Macro to print selected cells then return the worksheet to its original format. I am hiding columns B through H, printing A7:I68. While recording the Macro the print comes out correct. Once saved it only prints column A7:A68, does not include column I.

ActiveSheet.Unprotect

Columns("B:H").Select

Selection.EntireColumn.Hidden = True

Range("A7:I68").Select

ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"

Selection.PrintOut Copies:=1, Collate:=True

Columns("A:I").Select

Selection.EntireColumn.Hidden = False

ActiveWindow.SmallScroll Down:=-72

Range("A10").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

    False

Any Suggestions?

microsoft-excel macros

share|improve this question

edited Mar 30 '17 at 17:09

Tina Stone

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

ActiveSheet.Unprotect

Columns("B:H").Select

Selection.EntireColumn.Hidden = True

Range("A7:I68").Select

ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"

Selection.PrintOut Copies:=1, Collate:=True

Columns("A:I").Select

Selection.EntireColumn.Hidden = False

ActiveWindow.SmallScroll Down:=-72

Range("A10").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

    False

share|improve this question

edited Mar 30 '17 at 17:09

Tina Stone

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

share|improve this question

edited Mar 30 '17 at 17:09

Tina Stone

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

asked Mar 30 '17 at 16:35

Tina StoneTina Stone

13

Sub Print_MultiSelection()



Dim rng As Range, ws As Worksheet, rngArea As Range



Set rng = Selection



Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))



For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)



ws.Range(rngArea.Address).Value = rngArea.Value



Next 



rngArea ws.PrintPreview



ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False



Application.DisplayAlerts = False



ws.Delete Application.DisplayAlerts = True



rng.Parent.Activate



End Sub

Sub Print_MultiSelection()



Dim rng As Range, ws As Worksheet, rngArea As Range



Set rng = Selection



Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))



For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)



ws.Range(rngArea.Address).Value = rngArea.Value



Next 



rngArea ws.PrintPreview



ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False



Application.DisplayAlerts = False



ws.Delete Application.DisplayAlerts = True



rng.Parent.Activate



End Sub

Sub Print_MultiSelection()



Dim rng As Range, ws As Worksheet, rngArea As Range



Set rng = Selection



Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))



For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)



ws.Range(rngArea.Address).Value = rngArea.Value



Next 



rngArea ws.PrintPreview



ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False



Application.DisplayAlerts = False



ws.Delete Application.DisplayAlerts = True



rng.Parent.Activate



End Sub

Sub Print_MultiSelection()



Dim rng As Range, ws As Worksheet, rngArea As Range



Set rng = Selection



Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))



For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)



ws.Range(rngArea.Address).Value = rngArea.Value



Next 



rngArea ws.PrintPreview



ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False



Application.DisplayAlerts = False



ws.Delete Application.DisplayAlerts = True



rng.Parent.Activate



End Sub

Sub Print_MultiSelection()



Dim rng As Range, ws As Worksheet, rngArea As Range



Set rng = Selection



Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))



For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)



ws.Range(rngArea.Address).Value = rngArea.Value



Next 



rngArea ws.PrintPreview



ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False



Application.DisplayAlerts = False



ws.Delete Application.DisplayAlerts = True



rng.Parent.Activate



End Sub