• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA Array active Sheet to PDF

Status
Niet open voor verdere reacties.
Benoem de bladen die verborgen moeten worden.

Aan het eind van de code worden ze weer zichtbaar.

Code: 
Sub hsv()
Dim sh As Worksheet
Sheets(Array([COLOR=#ff0000]"blad1", "blad2"[/COLOR])).Visible = False
 ThisWorkbook.ExportAsFixedFormat 0, "c:\users\Belmans\documents\jePDF"
  For Each sh In Sheets(Array("[COLOR=#ff0000]blad1", "blad2"[/COLOR]))
    sh.Visible = True
   Next sh
End Sub
 
Hoi ik krijg volgende foutmelding

Runtime error '1004':
Unable to set the Visible property of the Sheets class
 
Het rode gedeelte wel aanpassen, alsook het stukje waar het moet worden opgeslagen.
 
Matthias,

Bedoel je 'm zo?

Deze rode regel toevoegen in je eerste code
Code: 
   Set wbA = ActiveWorkbook
   arr = Array("COMMERCIAL INVOICE", "PACKING LIST", "END USE LETTER", "SHIPPER DECLARATION - 1", "EXPORT CERT - 1", "SHIPPER DECLARATION - 2", "EXPORT CERT - 2", "SHIPPER DECLARATION - 3", "EXPORT CERT - 3", "SHIPPER DECLARATION - 4", "EXPORT CERT - 4", "SHIPPER DECLARATION - 5", "EXPORT CERT - 5", "SHIPPER DECLARATION - 6", "EXPORT CERT - 6")
   [COLOR="#FF0000"]Call VisibleSheets(arr)[/COLOR]
   Set wsA = Sheets(arr)

en onderaan deze functie code toevoegen:

[edit]: Na de End Sub natuurlijk :)

Code: 
Function VisibleSheets(Qarr)
    Dim myArray() As Variant
    Dim i As Integer
    Dim j As String
    j = 0
    For i = 0 To UBound(Qarr)
        If Sheets(Qarr(i)).Visible = True Then
            ReDim Preserve myArray(j)
            myArray(j) = Qarr(i)
            j = j + 1
        End If
    Next i
    
    Erase Qarr
    Qarr = myArray
    
End Function

Dat moet ervoor zorgen dat uit je eerste selectie (arr) alleen de zichtbare werkbladen worden geprint.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan