Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Macro liggend printen excel  (gelezen 749 keer)

0 leden en 1 gast bekijken dit topic.

Offline Ew Janssen

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Macro liggend printen excel
« Gepost op: 26 januari 2021, 08:05:21 »
Goedemorgen,

Ik ben op zoek naar een Macro voor liggend printen. Ik heb ondertussen het een en ander geprobeerd om tussen de huidige Macro te krijgen, maar op de een of andere manier lukt het mij niet. Momenteel maak ik gebruik van de huidige Macro. Eerlijkheidshalve heb ik deze "geleend" en aangepast naar mijn eigen eisen.

Sub PDF()
Dim Offname As String
Offname = ActiveSheet.Range("AA2").Value
If Dir("H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf") <> "" Then
MsgBox "Het bestand: " & Offname & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub

Alvast bedankt voor de hulp

Offline Ew Janssen

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Macro liggend printen excel
« Reactie #1 Gepost op: 26 januari 2021, 08:47:39 »
ondertussen ben ik nog verder gegaan en is t toch gelukt.

voor de mensen met dezelfde problemen/uitdagingen, hierbij de Macro.


Sub PDF()
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
Dim Offname As String
Offname = ActiveSheet.Range("AA2").Value
If Dir("H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf") <> "" Then
MsgBox "Het bestand: " & Offname & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Macro liggend printen excel
« Reactie #2 Gepost op: 26 januari 2021, 12:27:30 »
Hallo Ew Janssen,

Welkom op Oplossing.be  :)

We zien niet vaak dat een vraagsteller zijn probleem al zelf oplost een half uur na het posten van zijn vraag  \o/.

Doe zo voort  :thumbsup:

PS: With - End With die je gebruikt is correct maar hier mogelijk wat "overkill":

Sub PDF()
    ActiveSheet.PageSetup.Orientation = xlLandscape
    Dim Offname As String
    Offname = ActiveSheet.Range("AA2").Value
    If Dir("H:\Kantoor\Offerte derden\2021\" & Offname & ".pdf") <> "" Then
        MsgBox "Het bestand: " & Offname & ".pdf bestaat reeds"
        Exit Sub
    Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Kantoor\Offerte derden\2021\" & Offname_
              & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False,_
                    IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
    End If
End Sub

code afbreken naar volgende regel met een Underscore  ;)

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 !

 


www.combell.com