Private Sub CmdPDF_Click()
'Een bestandsnaam opgeven
Dim pdfNaam As String
pdfNaam = "C:\data\Bestelling"
'De pagina-eigenschappen instellen
With Blad1.PageSetup
.PrintArea = "$a$1:$E$30"
.Orientation = xlLandscape
.Zoom = 80
End With
'Het pdf bestand maken
Blad1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfNaam
'Een mededeling doen
MsgBox Prompt:="Het pdf bestand is hier opgeslagen:" _
& vbNewLine & vbNewLine & pdfNaam, _
Buttons:=vbInformation, _
Title:="pdf opgeslagen"
End Sub
Deze heb ik hier ergens weg gehaald alleen moet de file de naam krijgen van degene die de file heeft ingevuld.
De naam staat op blad1 in cel A1
Hoe moet ik deze marco aanpassen zodat er de naam van de besteller ook te zien is
'Een bestandsnaam opgeven
Dim pdfNaam As String
pdfNaam = "C:\data\Bestelling"
'De pagina-eigenschappen instellen
With Blad1.PageSetup
.PrintArea = "$a$1:$E$30"
.Orientation = xlLandscape
.Zoom = 80
End With
'Het pdf bestand maken
Blad1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfNaam
'Een mededeling doen
MsgBox Prompt:="Het pdf bestand is hier opgeslagen:" _
& vbNewLine & vbNewLine & pdfNaam, _
Buttons:=vbInformation, _
Title:="pdf opgeslagen"
End Sub
Deze heb ik hier ergens weg gehaald alleen moet de file de naam krijgen van degene die de file heeft ingevuld.
De naam staat op blad1 in cel A1
Hoe moet ik deze marco aanpassen zodat er de naam van de besteller ook te zien is