Na afdrukbereik te hebben bepaald dit opslaan als PDF

[peter59]

Hallo beste forumleden

Ik ben aan het stoeien om van 2 macro's, 1 te maken.
Een macro bepaald het afdrukbereik.
Zie onderstaand.

Sub BepaalAfdrukBereik()
Dim startCell As Range, lastRow As Long, lastCol As Long, ws As Worksheet
Set ws = Blad1
Set startCell = Range("A1")
lastRow = ws.Cells(ws.Rows.Count, startCell.Column).End(xlUp).Row
lastCol = ws.Cells(startCell.Row, ws.Columns.Count).End(xlToLeft).Column
ws.Range(startCell, ws.Cells(lastRow, lastCol)).Copy
End Sub

De andere code slaat op als PDF.
Zie onderstaand.

Sub CommandButton1_Click() 'Data
Range("A1:E100").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\………………………………….\" & Format(Range("A2"), "yyyymmdd") & " - " & Range("A1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True
    Range("A1").Select
End Sub

Het is nu mijn bedoeling om deze samen te voegen maar weet helaas niet hoe.

Dank alvast voor de genomen moeite.

Mvg
Peter

 

[HSV]

Is dit niet al voldoende dan?

Sub CommandButton1_Click() 'Data
[COLOR=#ff0000]Blad1.cells(1).currentregion[/COLOR].ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\………………………………….\" & Format(Range("A2"), "yyyymmdd") & " - " & Range("A1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True
    'Range("A1").Select
End Sub

Of:

Sub CommandButton1_Click() 'Data
[COLOR=#ff0000]Blad1.[/COLOR]ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\………………………………….\" & Format(Range("A2"), "yyyymmdd") & " - " & Range("A1") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True
    'Range("A1").Select
End Sub

 

[peter59]

Hallo HSV

Dat is meer als voldoende.
Beide codes werken als een tierelier dus niets samenvoegen.
Hoe eenvoudig kan het zijn, als je het weet.

HSV, heel hartelijk dank voor de genomen moeite.

Mvg
Peter