Printing two sheets simulataneously

[adam]

Hi anyone,

I’m trying figure out a standard module macro code that would first;

Copy the cell value of “O6” from the active sheet and paste in “previous” sheet’s cell value O6 if the cell “M10” contains any text other than the text “Other”.
And then print the active sheet.
Call the macro Sub SaveConsReceipt()
And then print the sheet “previous”
Clear the cell value O6 from the sheet “previous”

Any help on this would be kindly appreciated.

Thanks in advance.

[HansV]

Code: Select all

Sub Print2()
  Dim n As Long
  n = ActiveSheet.Index
  If n = 1 Then
    MsgBox "This is the first sheet!", vbExclamation
    Exit Sub
  End If
  If ActiveSheet.Range("M10") <> "Other" Then
    ActiveSheet.Previous.Range("O6") = ActiveSheet.Range("O6")
  End If
  ActiveSheet.PrintOut
  Call SaveConsReceipt
  ActiveSheet.Previous.PrintOut
  ActiveSheet.Previous.Range("O6").ClearContents
End Sub

[adam]

Thanks for the help Hans. I do really appreciate it.