Udskrift område, hvis

utestet:
ActiveSheet.PageSetup.PrintArea = union ( Range ("A1:C3") , ("A-noget:C-noget"))

hvis noget i A-noget og C-noget er det samme tal er der tale om en række.

jeg kan ikke helt komme i mål, måske du eller andre kan færdig gøre det. Jeg har lavet 2 indtastningsceller en til A og en til C, disse har jeg samlet i en tredje celle.
Jeg får det desværre ikke printet samlet, men på to sider  :-(

Sub printarea()
    Sheets("ark3").Select
    Range("A1").Select

' Men vil gerne have dette udskrift område i stedet
' Range ("A1:C3") + ("A-noget:C-noget"), det er de rækker hvor C = værdien i M1

  Range("K2").Select          ' formel i K2: ="A"&M1&":C"&N1
' i celle M1 indtastes A-værdien og i celle N1 indtastes C-værdien
  printes = ActiveCell
       
'    Range("A1:C3,A4:C8").Select
'    Range("A1:C3").Select
    ActiveSheet.PageSetup.printarea = "$A$1:$C$3"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
   
    ActiveSheet.PageSetup.printarea = printes
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
   
    Range("I1").Select

End Sub

Mange tak for hjælpen