[FONT=Verdana][COLOR=black][COLOR=black][FONT=Verdana]Sub printasmodi()[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'******************************************************************************************************[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'note this part below belong to writer: Ivan F Moala, May 23rd, 2007, 12:45 PM[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'This code to change a HKEY for the Document Image Writer,which will stop the Image window opening[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Const strKey As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\MODI\MDI Writer\OpenInMODI"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Const strType As String = "REG_DWORD"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Const dVal = 0[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Dim objWSH As Object[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set objWSH = CreateObject("WScript.Shell")[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]objWSH.RegWrite strKey, dVal, strType[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set objWSH = Nothing[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'Note this belong to writer: Ivan F Moala, May 23rd, 2007, 12:45 PM[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'_=====================================================================================================[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Dim doc1 As MODI.Document[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Dim FileName As String[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]On Error Resume Next[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]FileName = "TEST" & ".mdi"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]FilePath = (ThisWorkbook.Path & "\" & FileName)[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]If FileName <> "" Then[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Kill FilePath[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End If[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Application.ActivePrinter = "Microsoft Office Document Image Writer on Ne01:"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set doc1 = ActiveSheet.PrintOut(PrToFileName:=FilePath)[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]' open outlook close[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]On Error Resume Next[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set ObjOutlookApp = GetObject(, "Outlook.Application")[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]If Err.Number <> 0 Then[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set ObjOutlookApp = CreateObject("Outlook.Application")[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Shell ObjOutlookApp.Application, vbMaximizedFocus[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End If[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]On Error GoTo 0[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]'attachm message[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set OutApp = CreateObject("Outlook.Application")[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] OutApp.Session.Logon[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] Set OutMail = OutApp.CreateItem(0)[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] On Error Resume Next[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] With OutMail[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .To = "SOMEONE@EMAIL.COM"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .CC = "SOMEONE@EMAIL.COM"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .Subject = "MYSUBJECT"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .Body = "Hi" & vbNewLine & "Good morning, please see attachment. " & vbNewLine & "" & vbNewLine & "" & vbNewLine & "" & vbNewLine & "" & "Thank you"[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .Attachments.Add FilePath[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] If Send = True Then[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .Send[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] Else[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] .Display[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] End If[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] End With[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] On Error GoTo 0[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] Set OutMail = Nothing[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] Set OutApp = Nothing[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] On Error Resume Next[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]' DELETE File FROM PC[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana] Kill FilePath[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Set doc1 = Nothing[/FONT][/COLOR][COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End Sub[/FONT][/COLOR]
[/COLOR][/FONT]