Jeg har lavet en print knap med følgende kode:

 

Sub Knap1_Klik()
'UpdatebyExtendoffice20170811
    Dim i As Integer
    Dim xCSheetRow As Integer
    Dim xSName As String
    Dim xCSheet As Variant
    Dim xRgVal As String
    On Error Resume Next
    xSName = "Overblik"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xCSheet = ActiveWorkbook.Worksheets(xSName)
    xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
    For i = 2 To xCSheetRow
        xRgVal = xCSheet.Range("B" & i).Value
        If xRgVal = "x" Or xRgVal = "X" Then
            If xCSheet.Range("A" & i).Value <> "" Then
                ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
            End If
        End If
    Next
    Cells.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Tænker at det godt kunne gøre mere enkelt, men det rækker min viden vidst ikke til ;)

 

Mit problem består i, at jeg gerne vil have at den altid udskrive side 1 på ark 2 og kun side 3 hvis "A131" ikke er tom. Side 2 skal aldrig udskrives, da det blot er information.

 

Er der en venlig sjæl som kan hjælpe mig med at løse ovenstående?

 

Men mit problem består mere i, at jeg gerne vil have at den altid (når jeg har markeret at den skal udskrive ark 2 med "x") udskrive side 1 på ark 2 og kun side 3 hvis "A131" ikke er tom. Side 2 skal aldrig udskrives, da det blot er information.

 

Jeg vil gerne dele filen, men da den indeholder en del intern information er det desværre ikke muligt.