Eén knop voor printen en bewaren

[sirpatje]

Dag allen,

Wat moet ik doen om met één knop zowel te printen als op te slaan in pdf (naar het bureaublad)?


Mvg

 

[VenA]

Even een macro opnemen?

 

[sirpatje]

VenA

Had dat ook al gedacht maar was het niet zeker. Het was mogelijk dat er een vba code voor was. Ik zal het eens proberen.

tx

 

[VenA]

Geen idee wat je precies wil, maar hier een voorzetje

Private Sub CommandButton1_Click()
  PrintPreview 'printout
  ExportAsFixedFormat 0, Environ("userprofile") & "\desktop\Test.pdf"
End Sub

 

[edmoor]

Had dat ook al gedacht maar was het niet zeker. Het was mogelijk dat er een vba code voor was. Ik zal het eens proberen.

Het opnemen van een macro maakt VBA code voor je.
Dat is de hele bedoeling van het opnemen.

 

[sirpatje]

Vrienden,

Ik heb het bestandje toegevoegd en geprobeerd.

Het is de bedoeling dat meerdere mensen dit gebruiken. Dus moeten ze gewoon kunnen opslaan naar hun eigen opslagplaats.


Mvg

 

[edmoor]

Maak er dan dit van:

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [COLOR="#FF0000"]Environ("userprofile") & "\Desktop\sr recrea December 2018 .pdf",[/COLOR] Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

 

[VenA]

Staat toch in #4?

 

[edmoor]

Had ik niet gezien

 

[VenA]

Maakt niets uit. Ik lees ook wel eens de laatste reacties eerst:d

 

[sirpatje]

Vrienden,

idd stond in 4. Sorry

Ik heb de code van Edmoor ingebracht, opslaan als pdf werkt uitstekend maar hij wil niet afdrukken (printen).



Grtz

 

[edmoor]

Heb je wel de juiste printer als standaard printer ingesteld?

 

[sirpatje]

Ik denk van wel.

 

[sirpatje]

Ik heb het eens opnieuw geprobeerd deze keer werkt het wel, dank aan allen.

Mvg

 

[sirpatje]

Toch nog een randvraagje.

Zal hij altijd opslaan als "sr recrea december 2018.pdf" of neemt hij de naam van het blad over? Ik heb in een ander document dezelfde opslagmogelijkheid nodig maar deze bevat meerdere tabbladen met verschillende namen.

Grtz.

 

[edmoor]

Die naam staat er hard in.
Maak er dan dit van:

Environ("userprofile") & "\Desktop\" & ActiveSheet.Name & ".pdf"

 

[VenA]

Staat hier toch ook allemaal al ongeveer. https://www.helpmij.nl/forum/showthread.php/958839-Afkorting-landcode-bij-landkeuze-en-opslag
Probeer de aangedragen suggesties te begrijpen ipv soortgelijke vragen te stellen.