Help me please :-)

[Dave1988]

Hello,

I am trying to write a bit of code to place a file that I have saved within the code as an attachment on a email and extract the address from the file to place in the to box.

this is the code as it stands: -
Sub SaveAndEmail()
Dim NewFN As Variant
NewFN = "O:\Sports Centre\Purchase Order\Copies of Orders\Orders - Sports" & Range("J5").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False


Range("J5").Value = Range("j5").Value + 1

Range("C8:D12").ClearContents
Range("G8:J8").ClearContents
Range("B15:H32").ClearContents
Range("D34:E38").ClearContents

ThisWorkbook.Save

Application.Quit


End Sub

also does anyone know if there is a way to select a print within macro coding instead of just sending to the default printer?

 

[jim may]

Regarding the PRINT portion of your query:

Include Code line:

Application.Dialogs(xlDialogPrinterSetup).Show

 

[Dave1988]

Regarding the PRINT portion of your query:

Include Code line:

Application.Dialogs(xlDialogPrinterSetup).Show

Hi Jim,

Thanks, but that only opened a printer set up window and didn't send the document to print

Dave

 

[jim may]

I'm out of my office at present. Will be back within the hour. I'll send you the code then. Jim

 

[Dave1988]

I'm out of my office at present. Will be back within the hour. I'll send you the code then. Jim

ok thank you

 

[jim may]

The easiest way to get the code for this (including the path to the printer) will be for you to record a macro.

1.Click on Record Macro
2.Run through the print process including changing the printer to print to
3.Stop recording
4.Review your macro

This will include the code string:
Application.ActivePrinter = "YOUR PRINTER PATH"

Then insert this in your code above

Hope this helps...

Jim

 

[Dave1988]

The easiest way to get the code for this (including the path to the printer) will be for you to record a macro.

1.Click on Record Macro
2.Run through the print process including changing the printer to print to
3.Stop recording
4.Review your macro

This will include the code string:
Application.ActivePrinter = "YOUR PRINTER PATH"

Then insert this in your code above

Hope this helps...

Jim

thanks all working now...
just to work out how to do the email bit..