exporteer benoemd werkblad naar pdf

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste Helper,

Ik heb meerdere pogingen gedaan om een benoemd werkblad te exporteren naar een pdf maar het resultaat is iedere keer een blanke pagina, de code zoals ik hem nu heb staan is als volgend.
Code: 
Sub Exhaust_als_PDF()

    'Exporteert werkboek naar pdf waarbij zelf de naam getikt moet worden
    
    Dim PDFnaam As Variant
    
       
    
    PDFnaam = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf")
                
    If VarType(PDFnaam) = vbString Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFnaam, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
    End If
End Sub
. Ik snap denk ik wel wat het probleem is. de knop die
Exhaust_als_PDF
Klik om te vergroten...
moet activeren staat op een userform. Bij het initialiseren van mijn userform laat ik met bepaalde reden blad1 actief (deze is leeg)zijn. Dus hiervan maakt hij de pdf.

Hoe krijg ik nu Sheet("EXHAUST").Range("B2:J81") als Uitkomst op de pdf in plaats van de lege activesheet.

Bij voorbaat dank
 
Zo:
Code: 
Sub Exhaust_als_PDF()
    [COLOR="#008000"]'Exporteert werkboek naar pdf waarbij zelf de naam getikt moet worden[/COLOR]
    Dim PDFnaam As Variant
    PDFnaam = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf")
                
    If VarType(PDFnaam) = vbString Then
        Sheets("EXHAUST").Range("B2:J81").ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:=PDFnaam
    End If
End Sub
 
Laatst bewerkt:
Ik dacht dat ik die al geprobeerd had maar dus toch niet want hij werkt.
Dank je Edmoor
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan