Print macro

[GregoryT]

I have A print button on Sheet1 and created the following macro. The sheet I want to print is on sheet6. Where did I screw up, kinda green at this stuff. TIA

Sub CreatePDF()

Dim ID As String

ID = " Range("B1").Text

activesheet.exportasfixedformat _
Type:"xltTypePDF, _
Filename:"C:\Users\Greg\Documents\RecipePdf\"+ID+".pdf", _
IgnorePrintAreas:"False, _
OpenAfterPublish:"False

End Sub

 

[MARK858]

Try the below..

ID = " Range("B1").Text

should be

ID = Range("B1").Value

(i.e. no quotes at the front) if Range("B1") is on the ActiveSheet and contains "Sheet6" without the quotes

and

Filename:"C:\Users\Greg\Documents\RecipePdf\"+ID+".pdf"

change to

Filename:"C:\Users\Greg\Documents\RecipePdf\" & ID & ".pdf"

 

[GregoryT]

@MARK858 hi made the corrections but got a syntax error and when I hit ok the first Line "Sub CreatePDF() Turned yellow

 

[MARK858]

Please paste the code directly in the thread (preferably in code tags.... paste the code, select the code and click the VBA icon in the reply window) rather than an image.

 

[GregoryT]

Here it is Hope thats right. My print button is on Sheet1 - Sheet 6 is the sheet that is auto populated and printed to pdf (Not shown/not hidden).
Again thanks for your help.

Sub CreatePDF()

Dim ID As String

ID = Range("B2").Value

activesheet.exportasfixedformat _
Type:"xltTypePDF, _
Filename:"C:\Users\Greg\Documents\RecipePdf\" & ID & ".pdf" _
IgnorePrintAreas:"False, _
OpenAfterPublish:"False

End Sub