You can copy the code in this article to the message handler function of an
event defined in an MFC .cpp file. However, the purpose of the code is to
illustrate the process of using the IDispatch interfaces and member
functions defined in the Msword8.olb type library. If you are using Word 2000, use the Msword9.olb type library. If you are using Word 2002, use the MSWord.olb Type library. The primary benefit comes from reading and understanding the code so that you can modify the example, or write code from scratch to automate setting the printer.
Steps to Create the Project
- Follow steps 1 through 12 in the following Microsoft Knowledge Base
article to create a sample project that uses the IDispatch interfaces
and member functions defined in the MSWord8.olb, or the MSWord9.olb, or the MSWord.olb type library:
178749�
HOWTO: Create an Automation Project Using MFC and a Type Library
- At the top of the AutoProjectDlg.cpp, add the following line:
For Word 2000, include msword9.h. For Word 2002, include msword.h.
- Add the following code to CAutoProjectDlg::OnRun() in the
AutoProjectDlg.cpp file:Sample Code:
CWaitCursor begin; // Hourglass.
{
_Application objApp; // You need an application's typelib;
// therefore, you need an object.
// You can use any application that has an IDispatch
// interface containing SetActivePrinter()
// and GetActivePrinter() member functions.
objApp.CreateDispatch("Word.Application");
// This could be objApp.CreateDispatch("Excel.Application");
// For a network printer, use:
// objApp.SetActivePrinter("\\\\PrnServr\\HP3SI@1134 on NE01");
// For a local printer, use:
objApp.SetActivePrinter("HP LaserJet IIISi");
::Sleep(10000); // You need to provide a considerable wait if
// you are using a network printer.
CString thePrinter = objApp.GetActivePrinter(); // Verify the new
// setting.
MessageBox(thePrinter, "The Active Printer Is",
MB_SETFOREGROUND | MB_OK);
// Release the objApp object and close Word.
objApp.Quit(COleVariant((short)FALSE), // VARIANT* SaveChanges
COleVariant((short)TRUE), // VARIANT* OriginalFormat
COleVariant((short)FALSE) // VARIANT* RouteDocument
);
// If you use Excel for its IDispatch interface functions,
// objApp.Quit() takes no parameters.
}