Goede middag, ik ben al eventjes op zoek naar een oplossing om automatisch naar pdf te printen maar helaas zonder resultaat.
Dit is het script dat ik gebruik om te filteren, als ik de printouts aanpas om te saven naar pdf gaat hij een afzonderlijke pdf maken per sheet en dat is niet de bedoeling,
Beide sheets zouden moeten worden samengevoegd naar 1 pdf.
Code:
Alvast bedankt!
Dit is het script dat ik gebruik om te filteren, als ik de printouts aanpas om te saven naar pdf gaat hij een afzonderlijke pdf maken per sheet en dat is niet de bedoeling,
Beide sheets zouden moeten worden samengevoegd naar 1 pdf.
Code:
Code:
If keuze = "BOB" Then
myverbergen
Sheets(67).Visible = True
Sheets(67).Activate
' ft = InputBox("Papierformaat A4 of A3 ?", "BLAD ' B O B '")
' If ft = "A3" Or ft = "a3" Then
' With ActiveSheet.PageSetup
' .PaperSize = xlPaperA3
' End With
' Else
' With ActiveSheet.PageSetup
' .PaperSize = xlPaperA4
' End With
' End If
ActiveSheet.Unprotect ("TOP")
ActiveWorkbook.Unprotect ("POT")
ActiveSheet.Columns("N").EntireColumn.Hidden = False
ActiveSheet.Range("N1").Select
Selection.AutoFilter Field:=14, Criteria1:=">0", Operator:=xlAnd
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\user\Documents\sheet 1.pdf"
Selection.AutoFilter
ActiveSheet.Columns("N").EntireColumn.Hidden = True
ActiveSheet.Range("A1").Select
ActiveSheet.Protect ("TOP")
Sheets(70).Visible = True
Sheets(70).Activate
' ft = InputBox("Papierformaat A4 of A3 ?", "BLAD ' B O B '")
' If ft = "A3" Or ft = "a3" Then
' With ActiveSheet.PageSetup
' .PaperSize = xlPaperA3
' End With
' Else
' With ActiveSheet.PageSetup
' .PaperSize = xlPaperA4
' End With
' End If
ActiveSheet.Unprotect ("TOP")
ActiveWorkbook.Unprotect ("POT")
ActiveSheet.Columns("J").EntireColumn.Hidden = False
ActiveSheet.Range("J1").Select
Selection.AutoFilter Field:=10, Criteria1:=">0", Operator:=xlAnd
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\user\Documents\sheet 2.pdf"
Selection.AutoFilter
ActiveSheet.Columns("J").EntireColumn.Hidden = True
ActiveSheet.Range("A1").Select
ActiveSheet.Protect ("TOP")
End IfAlvast bedankt!
Laatst bewerkt door een moderator:
