Pdf export zonder formaat

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste helper,

in mijn excel project exporteer ik een range dmv deze code
Code: 
Sub PdfVoorbouwRad()
    'Exporteert Range 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
        Sheets("AIRFLOW 1 SET").Range("A1:P184").ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:=PDFnaam, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, From:=1, To:=2, OpenAfterPublish:=True
    End If
    
End Sub

werkt perfect. Echter de pdf resultaat bestaat in mijn geval als uitkomst 5 mooie A4 bladen. Is het mogelijk om hier 1 doorlopend vel van te maken blad van te maken die wel als breedte een A4 formaat hebben.

Alvast vriendelijk dank voor de aandacht.

m.vr.gr.Martin
 
PDF is gebaseerd op een pagina layout, dus om hier 1 pagina van te maken, denk ik dat je de paginahoogte moet veranderen in 5x de aanvankelijke hoogte.
Maar ik heb geen ervaring in hoe dat werkt met Excel. Ik vond nog wat tools en meer info met deze zoekopdracht: pdf create continuous sheet
 
Waarom niet zó ?

Code: 
Sub M_snb()
   Sheets("AIRFLOW 1 SET").Range("A1:P184").ExportAsFixedFormat 0, replace(thisworkbook.fullname,".xlsm",".pdf")
End Sub
 
Dank voor de reactie vandahl,

Ik krijg het met geen mogelijkheid voor elkaar. Meeste bedrijven proberen paperless te worden dus waarom papier formaten aanhouden.
Ik laat het voor nu rusten en sluit het lijntje. Ieder geval bedankt
 
@snb Ik was even te snel met sluiten van de lijn. ik heb uw code geprobeerd het resultaat is hetzelfde als mijn code zoals geplaatst in #1.
ieder geval thx
 
Dat was ook de bedoeling, maar met een eenvoudiger code.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan