Printen 2x range (1x portraitt en 1x landscape

[jolanda05031975]

Ik heb 1 excel bestand waarin ik twee ranges heb geselecteerd welke ik wil printen naar PDF. Dit gaat wel goed, alleen ik wil 1 pagina horizontaal en 1 verticaal geprint hebben. Dit lukt mij echter niet.

Op de tweede pdf print komt ook het de eerste regel mee van de sheet wat niet de bedoeling is.

Dit is het script welke ik gebruik.

Wat doe ik fout?

Alvast bedankt.

Dennis

Private Sub Opslaan_Click()

    Dim FACname As String
    Dim KLTnaam As String
    Dim Padnaam As String
    Dim PDFnaam As String

    Padnaam = "C:\test\"
    KLTnaam = Range("D10")
    If KLTnaam = "" Then
        MsgBox "Gelieve een klantnaam in te vullen."
        Exit Sub
    End If
    
    WKname = Trim(Range("A22"))
    FACname = Trim(Range("B17"))                                       ' De macro haalt met dit command het factuurnummer op in de factuur,
                                                                       ' om deze later als naam voor het PDF-bestand te gebruiken.
    If Dir(Padnaam & FACname & "*.pdf") <> "" Then
        MsgBox "Factuur: " & FACname & " bestaat reeds"                ' Een controle om geen dubbel PDF-bestand te maken.
                                                                       ' De map waarin je de PDF-bestanden in wilt creëeren ( facturen 2015 )
                                                                       ' moet op voorhand aangemaakt zijn!!
        Exit Sub                                                       ' Verlaat de routine als het PDF-bestand reeds bestaat.
    Else
        PDFnaam = Padnaam & FACname & " " & KLTnaam & WKname & ".pdf"
        
        With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    
        Range("A1:G46").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=PDFnaam, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=True
            
       PDFnaam = Padnaam & FACname & " " & KLTnaam & WKname & " Bijlage.pdf"
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
        
        Range("I56:AC100").ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=PDFnaam, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=True
            
    End If
    
End Sub

 

[mastermindzh]

Het meerdere keren plaatsen van een vraag op helpmij.nl is niet gewenst (lees toegestaan).
Aangezien uw andere post al reacties heb laat ik die verdergaan. Deze kan gevonden worden op: http://www.helpmij.nl/forum/showthr...-range-printen-naar-vba?p=5579017#post5579017

Succes met de vraag :thumb

ps: ik heb tevens even in de nieuwe vraag de codetags goedgezet