How Do I Add A Print MsgBox Button (To A MsgBox)?

[indi visual]

MsgBox "Hello World", vbOkCancel, "Hello World"


How would I simply add a button to print the message it displays to the default printer?

 

[Luke M]

You can't print single messages to the printer, only what's on the worksheet. You can "print" to the immediate window (Ctrl+g) of the VBE if you want.

[pre]

MyMessage = "HellowWorld"
MsgBox MyMessage
Debug.Print MyMessage

[/pre]

 

[indi visual]

Okay I see I see.


Hmm..


What it make any difference if I were using a .vbs windows sript?


I'm creating a simple calculator at work (using a .vbs file actually), just thought it'd be nice if I could print the results from the message box.

 

[vaskov17]

VBScript code to print using notepad:


Dim objFSO, objText, strText, strFile, objShell


strFile=replace(WScript.ScriptFullName,WScript.ScriptName,"to_print.txt")


strText="Test" 'message that should be printed


Set objShell=WScript.CreateObject("WScript.shell")

Set objFSO=WScript.CreateObject("Scripting.FileSystemObject")


Set objText =objFSO.CreateTextFile(strFile,2)

objText.Write(strText)

objText.Close


objShell.Run "%windir%notepad /p """ & strFile & """",0


WScript.Sleep 1000


objFSO.DeleteFile strFile


Set objText=Nothing

Set objFSO=Nothing

Set objShell=Nothing


WScript.Quit

 

[indi visual]

Thanks vaskov17 (and everyone else for assistance) this worked perfectly.