Excel 2013 export naar pdf zonder comments

[Pogo02]

Goedendag,

Ik heb erg weinig ervaring met macro's binnen Excel, dus excuses voor deze wellicht makkelijk op te lossen vraag.

Ik wil via een macro aanpassingen doen aan een Excel document en deze vervolgens naar een pdf exporteren en daarna deze aanpassingen terugdraaien in het Excel document. Dit lukt allemaal, maar in de pdf krijg ik de comments op aparte pagina's. Deze wil ik helemaal niet in mijn pdf's hebben. Dit is schijnbaar uit te zetten via .PrintComments = xlPrintNoComments, maar dat werkt bij mij niet, ook de optie False niet.

Wellicht goed om te vermelden is dat het document waarin de aanpassingen worden gedaan een gedeeld document is, waarin dus geen macro's te draaien zijn. De macro zit dus in een 2e document, die wordt geactiveerd vanuit het bestand dat moet worden aangepast en geexporteerd.

Hieronder de volledige macro, enige hulp is zeer welkom!

EDIT:
1 werkblad selecteren ipv allemaal bij de printinstellingen hielp niet.
De communicatie met de printer open houden hielp niet.

Sub verfENschmink8weken()
'
' verfENschmink8weken Macro
'

'
Sheets("Latex").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Afvul").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Verf").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Schmink").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Kunststof").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Klei").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Inpak").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$200").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets("Externe copackerplanning").Select
Columns("A:C").Select
Range("C1").Activate
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$3:$A$49").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlOr, Criteria2:=">0"
Columns("D:BC").Select
ActiveSheet.PageSetup.PrintArea = "$D:$BC"

Sheets(Array("Latex", "Afvul", "Verf", "Schmink", "Kunststof", "Klei", "Inpak", "Externe copackerplanning")).Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Documents\Bob\Productieoverleg\verfENschmink8weken.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Sheets("Latex").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Afvul").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Verf").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Schmink").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Kunststof").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Klei").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Inpak").Select
ActiveSheet.Range("$A$3:$A$81").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

Sheets("Externe copackerplanning").Select
ActiveSheet.Range("$A$3:$A$49").AutoFilter Field:=1
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = ""

End Sub

[Lustucru]

Welkom op Got.
Je topicstart is op zich best oké, als je niet die hele lap code erbij had gedaan.
Post svp alleen de relevante regels en geef ook duidelijk aan waar je die niet werkende regel hebt toegevoegd.
Kun je ook een voorbeeld geven van de niet gewenste comments?
Ook is onduidelijk of je nu een export bedoeld of afdrukken op een pdf printer.

Hier gaat dus een slotje op maar maak gerust een nieuw topic aan.