• 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.

macro pdf pagina

Status
Niet open voor verdere reacties.

beertje

Gebruiker
Lid geworden
14 dec 2000
Berichten
500
Hallo,
Ik heb een excel pagina en daar heb ik een macro aan toegevoegd om de pagina op te slaan als PDF.
Gaat allemaal goed, alleen ik wil van die pagina cellen A11 t/m A16 er niet bij in hebben.
nu is mijn vraag is dat mogelijk om in die macro te bouwen??

Code:
[COLOR="#FF0000"]Sub opslaanalsPDF()
'
    ActiveWindow.View = xlPageBreakPreview
'    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.View = xlNormalView
    ActiveWindow.SmallScroll Down:=-48
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\Overzicht Brandmeldingen.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub[/COLOR]
 
Laatst bewerkt door een moderator:
Je kunt de macro zo aanpassen dat die cellen leeg worden gemaakt. Deze informatie kun je in de macro in variabelen bewaren.
Nadat de PDF is opgeslagen kun je deze dan weer terug zetten.
 
Dank je wel voor je antwoord Edmoor.
ik moet je zeggen dat ik niet zoveel verstand heb van macro's, heb deze ook van het internet gehaald.
Is het misschien mogelijk dat jij dat in die macro zet en terug plaats, zodat ik het kan proberen?
 
Dat zou dan zoiets kunnen zijn:

Code:
Sub opslaanalsPDF()
    Dim Bewaren(16) As String
    Dim i As Integer
    
    'Cellen A11 t/m A16 bewaren in een array en leegmaken
    For i = 11 To 16
        Bewaren(i) = Cells(i, "A")
        Cells(i, "A") = ""
    Next i
    
    ActiveWindow.View = xlPageBreakPreview
'    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.View = xlNormalView
    ActiveWindow.SmallScroll Down:=-48
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\Overzicht Brandmeldingen.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    'Cellen A11 t/m A16 weer invullen vanuit de array
    For i = 11 To 16
        Cells(i, "A") = Bewaren(i)
    Next i
End Sub
 
Laatst bewerkt:
Edmoor,

Helemaal geweldig, het werkt :thumb:
heb ik nog een vraag, misschien dat jij die ook weet, nee heb ik ja kan ik krijgen...toch?:)
Als ik die pagina wil printen, dan heb ik de volgende stelling:

Private Sub Workbook_Open() 'Werkmap openen
Sheets("voorblad").ScrollArea = ("A1:O37") 'Scrolgebied op een cel instellen
End Sub

is het dan ook mogelijk dat die A11 t/m A16 niet afgedrukt wordt?
als je het niet weet kijk ik verder, maar wil je toch alvast bedanken voor het oplossen van mijn PDF bestand
 
Je kunt wel instellen welk gebied je afgedrukt wilt hebben maar voor zover ik weet kun je daarin niet een op te geven range overslaan.
Vandaar dat ik het heb opgelost zoals nu in de macro. Er lopen hier genoeg Excel VBA goeroe's rond die het beter weten dan ik.
Dus misschien dat iemand anders er een oplossing voor heeft. Vooralsnog kun je mijn voorbeeld gebruiken.
 
Edmoor,

Toch nog een vraagje,
die cellen die die niet meeneemt in mijn PDF bestand zijn hyperlinks.(A11 t/m A16)
dus nu zie ik dat ie platte tekst terug zet ipv de hyperlinks, is daar misschien ook nog wat aan te doen?
 
Tsja, dat had je niet eerder verteld dus kon ik niet weten. De velden worden als tekst gelezen en terug geplaatst.
Ik heb nu helaas geen tijd om te kijken hoe dat anders moet.
Plaats even een voorbeeldbestand als je wilt.
 
ik probeerde het bestand erbij te doen, is alleen te groot :(
wat ik doe is gewoon als ik iets verander heb "opslaan" en dan er een PDF bestand van maken en als ik afsluit doe ik niet opslaan.
zo kan het ook....
 
Laatst bewerkt:
Maak gewoon even een klein bestandje met een paar hyperlinks zoals je dat in het originele bestand ook hebt.
Dat is voldoende.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan