Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Blad afdrukken naar PDF  (gelezen 1153 keer)

0 leden en 1 gast bekijken dit topic.

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Blad afdrukken naar PDF
« Gepost op: 19 januari 2021, 16:24:44 »
Hallo,

ik ondervindt toch problemen met het coderen in VBA van een afdruk:

Ik wens het eerste blad van een Excel werkblad als PDF af te drukken.

Vroeger bij afdrukken naar de printer kon je dit aangeven via:

     ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
waar de code PrintOut er voor zorgt dat enkel je eerste "blad" afgedrukt wordt.
PrintOut From:=1, To:=1
Bij het afdrukken naar PDF krijg ik het niet klaar:  >:( >:( >:(
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\PDF\" & "Naam.pdf", IgnorePrintAreas:=False, OpenAfterPublish:=True
Is er iemand die mij wijzer kan maken?

Met dank!

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Blad afdrukken naar PDF
« Reactie #1 Gepost op: 19 januari 2021, 17:24:49 »
SoftAid, het blijft ongeveer hetzelfde...  ;)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\PDF\" & "Naam.pdf", IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
______________________________

Groet, Leo

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Blad afdrukken naar PDF
« Reactie #2 Gepost op: 19 januari 2021, 17:35:09 »
Hallo Leo,

dank je wel  :thumbsup:
Ik had dit al proberen te combineren, maar ik kreeg toch nog telkens een fout.
Spijtig dat de foutmeldingen in Excel 2007 zo nietszeggend zijn. Daar kan je echt niets uit halen....
Ik zal toch eens moeten kijken voor een nieuwe versie  8)

Hartelijk dank voor je snelle reactie  :thumbsup:

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Blad afdrukken naar PDF
« Reactie #3 Gepost op: 19 januari 2021, 22:19:21 »
Probeer eens

Thisworkbook.   Ipv activesheet.

In de code van redhead
ActiveSheet.ExportAsFixedFormat zal altijd maar 1 pagina printen, namelijk de actieve ;)

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Blad afdrukken naar PDF
« Reactie #4 Gepost op: 19 januari 2021, 22:38:58 »
Hallo Veerj,

Dank om je reactie.

ActiveSheet. zoals RedHead voorstelde (en wat ik ook al gebruikte) werkt prima.
Je kan wel ThisWorkbook.ActiveSheet. gebruiken maar dit werkt net zo zeer als ActiveSheet. alleen.
Als je hier enkel ThisWorkbook. gebruikt, dan kies hij voor het meest linkse werkblad (ook al is dat niet het Blad1), en niet voor dat blad dat open staat.
Ik heb toch weer wat bijgeleerd door je suggestie.  :thumbsup:

Groeten,

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Blad afdrukken naar PDF
« Reactie #5 Gepost op: 19 januari 2021, 22:44:21 »
Mooizo!

Misschien dat ik het verkeerd begrijp hoor.
Maar als je activesheet gebruikt voorafgaand aan ExportAsFixedFormat.... , werkt from:= 0 to:=3 niet. Hij zal alleen de actieve sheet printen als pdf.

Gr JV

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Blad afdrukken naar PDF
« Reactie #6 Gepost op: 19 januari 2021, 23:42:07 »
Hallo Veerj,

het is de bedoeling om van het actieve werkblad  enkel het eerste "afdrukblad" afdrukt.
Als je naar een printer afdrukt, dan krijg je een instel-venster waar je in Afdrukbereik kan kiezen tussen All of " Pages: From: ..... To: .....

Als je via macro afdrukt naar een printer kies je ook : ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, ....
Dat wilde ik ook voor afdrukken naar PDF, dus enkel de data op Page 1 van Werkblad x.

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Blad afdrukken naar PDF
« Reactie #7 Gepost op: 20 januari 2021, 07:37:33 »
Verkeerd begrepen dus 8)

 


www.combell.com