Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 2 van 2

Onderwerp: Autofilter doorlopen en opslaan naar pdf

  1. #1
    Junior Member
    Geregistreerd
    14 januari 2019
    Vraag is niet opgelost

    Autofilter doorlopen en opslaan naar pdf

    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:
    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 If
    Alvast bedankt!
    Laatst aangepast door snb : 14 januari 2019 om 13:50

  2. #2
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Vermijd 'Select' en 'Activate' in VBA.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  3. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren