Hej PI,

 

Prøv med denne:

 

 

 

Kan det være på grund af at jeg har nedenstående kode stående i "STAMDATA" at printprocessen går i stå i "EFTERSYNSDATA"?

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("G41:T41")) Is Nothing Then Exit Sub
t_val = Target.Value: t_col = Target.Column

 If t_col = 7 And t_val = "2" Then Sheets("Eftersynsdata").Rows("22:27").RowHeight = 14.25
 If t_col = 7 And t_val <> "2" Then Sheets("Eftersynsdata").Rows("22:27").RowHeight = 0
 If t_col = 7 And t_val = "2" Then Sheets("Fotos").Rows("19:34").RowHeight = 14.25
 If t_col = 7 And t_val <> "2" Then Sheets("Fotos").Rows("19:34").RowHeight = 0

 

etc. etc.

 

 If t_col = 20 And t_val = "15" Then Sheets("Eftersynsdata").Rows("100:105").RowHeight = 14.25
 If t_col = 20 And t_val <> "15" Then Sheets("Eftersynsdata").Rows("100:105").RowHeight = 0
 If t_col = 20 And t_val = "15" Then Sheets("Fotos").Rows("227:242").RowHeight = 14.25
 If t_col = 20 And t_val <> "15" Then Sheets("Fotos").Rows("227:242").RowHeight = 0
 
End Sub

 

Jeg har ændret makroen til,

 

Sub PrintRapport()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets(Array("STAMDATA", "EFTERSYNSDATA", "FOTOS")).PrintOut , , 1
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

, men den standser stadigvæk i arket "STAMDATA".