automatically print attachments

Status
Not open for further replies.
C

crashbrown98

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hello,

I have a script to print attachments automatically and itworks well however when it prints it does it as actual size instead offit. Is there a way to adjust the scriptto do it as fit instead of actual size for .pdf

Here is the code used:

Sub LSPrint(Item As Outlook.MailItem)
On Error GoToOError
'detect Temp
Dim oFS AsFileSystemObject
Dim sTempFolder AsString

Set oFS = NewFileSystemObject
'Temporary FolderPath
sTempFolder =oFS.GetSpecialFolder(TemporaryFolder)

'creates a specialtemp folder
cTmpFld =sTempFolder & "\OETMP" & Format(Now,"yyyymmddhhmmss")
MkDir (cTmpFld)
'save & print
Dim oAtt AsAttachment
For Each oAtt In Item.Attachments
FileName =oAtt.FileName
FullFile =cTmpFld & "\" & FileName

'save attachment
oAtt.SaveAsFile(FullFile)

'printsattachment
Set objShell =CreateObject("Shell.Application")
Set objFolder =objShell.NameSpace(0)
SetobjFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")

Next oAtt

'Cleanup
If Not oFS IsNothing Then Set oFS = Nothing
If Not objFolderIs Nothing Then Set objFolder = Nothing
If NotobjFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell IsNothing Then Set objShell = Nothing

OError:
If Err <> 0Then
MsgBoxErr.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub

End Sub
 
Diane Poremsky said:
Generally speaking, no, because the printer commands are not exposed in the object model. If the pdf application supports this open via a command line, you may be able to do it.
Click to expand...

when it comes to macros i got as much knowledge as a 3 yr old. i can understand them to a point but after that im clueless. so there is no way to tell adobe how to print it unless i would run a sub macro for adobe?
 
According to the Acrobat SDK, it looks like you can use OLE -

Function PrintPages(nFirstPage As Long, nLastPage As Long, nPSLevel As Long, bBinaryOk As Long, bShrinkToFit As Long) As Boolean

I found this sample and it works to print from outlook, but I'm not sure of the correct setting for shrink to fit. Oh, and you need to set a reference to Acrobat in Tools, References. And it only works with Acrobat, not reader.

Code: 
Public Sub AcrobatPrint() 
 
Dim FileName As String ' this is the filename variable, i replaced it with a hardcoded filename for testing 
 
Dim PrintMode As String
    Dim AcroExchApp As Acrobat.CAcroApp
    Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
    Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
    Dim num As Integer
    Set AcroExchApp = CreateObject("AcroExch.App")
    Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
    ' Open the [Filename] pdf file
    ' use FileName variable instead of hardcoded file name
    AcroExchAVDoc.Open "C:\Users\Diane\Downloads\a-pdf.pdf", ""
    'Get the PDDoc associated with the open AVDoc
    Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc
    'Get the number of pages for this pdf [and subtract one as zero based]
    num = AcroExchPDDoc.GetNumPages - 1
    If PrintMode = "All" Then
         'Print Entire Document
          Call AcroExchAVDoc.PrintPages(0, num, 2, 1, 1)
    Else
          If num = 0 Then
              'Print entire document (one page)
              ' Last value is shrinktofit
               Call AcroExchAVDoc.PrintPages(0, num, 2, 1, 1)
          Else
              'Print first two pages
               Call AcroExchAVDoc.PrintPages(0, 1, 1, 1, 1)
          End If
    End If
    AcroExchApp.Exit
    AcroExchAVDoc.Close (True)
    AcroExchPDDoc.Close 
 
End Sub
 
As an FYI, i added a working sample to my print attachments page at Use Acrobat's Printer Options.

It should be fairly easy to tweak your code to use the select case statement from my code to identify pdf files and send them to the print pdf macro. Or use an If statement to send them to the pdf code.
 
Status
Not open for further replies.
< In need of VBA code to read / parse HTML - Outlook emails | Outlook 2010 - can't send/receive data file cannot be accessed >
Similar threads
Thread starter Title Forum Replies Date
P Print attachments automatically and move the mail to an existing folder called "Ted" Outlook VBA and Custom Forms 4
D Print attachments automatically and moves the mail to a new folder Outlook VBA and Custom Forms 9
I Print Automatically Attachments Outlook VBA and Custom Forms 3
5 Automatically print email attachments Using Outlook 7
J Automatically Print PDF When They Are Received Using Outlook 4
A Opening a link from an email automatically Outlook VBA and Custom Forms 0
A Opening a link from a specific sender automatically Outlook VBA and Custom Forms 4
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
J Calendar events created on iPhone automatically changing default alert from 'None' to 'Time of Event' Using Outlook.com accounts in Outlook 0
Z Automatically adjust Outlook Reading Pane from bottom to right depending on portrait or landscape window Using Outlook 1
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
Hornblower409 Automatically or Manually Backup Multiple Versions of VbaProject.OTM Outlook VBA and Custom Forms 1
B Outlook 2019 Automatically move email after assigning category Using Outlook 4
G automatically choosing "add to autocorrect" option Using Outlook 0
L Why are some email automatically going to "archive" Using Outlook 2
Z Outlook 365 Automatically assign categories to incoming mail in a shared folder Round Robin Outlook VBA and Custom Forms 1
G Automatically delete messages in the synchronization folder Outlook VBA and Custom Forms 3
C Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 4
E Remove flag automatically Using Outlook 4
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
M Outlook 365 Switching from AOL to Yahoo automatically Using Outlook 5
B Zoom automatically next email item (VBA) Outlook VBA and Custom Forms 2
Paul Hobbs Automatically accept "Empty Folders" prompt Outlook VBA and Custom Forms 6
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
D Custom Search Folders not refreshing/updating automatically Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
Y Outlook 2013 Stop Outlook from automatically assigning categories to Tasks Using Outlook 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
A How to open a specific link automatically with outlook 2016 Outlook VBA and Custom Forms 6
P Automatically Categorize Meetings once they are accepted Outlook VBA and Custom Forms 5
W Automatically open attachments without automatically printing them Using Outlook 0
N How to set automatically the default or user defined Quickstyle Templates by Answer in Outlook Using Outlook 1
O Run macro automatically at sending an email Using Outlook 11
D Outlook 2016 automatically increment anniversaries Using Outlook 1
T Office 2013 no longer updating automatically Using Outlook 2
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
A How to open a specific link automatically with outlook Outlook VBA and Custom Forms 13
L Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 33
N how to sync automatically when outlook opens Using Outlook 10
A Sort emails into subfolders based on sender and deleting emails automatically Outlook VBA and Custom Forms 3
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
stephen li VBA Outlook send mail automatically by specified outlook mail box Outlook VBA and Custom Forms 1
R Make Enter Network Password Prompt Go Away Automatically Using Outlook 0
S Automatically selecting folders and deleting messages in Outlook VBA Outlook VBA and Custom Forms 7
M Outlook 2016 Rules Not Working Automatically Using Outlook 5
Diane Poremsky Automatically create a task when sending a message Using Outlook 0
D Is it possible to automatically send an email when it is moved to a folder? Exchange Server Administration 1

Similar threads

Back
Top