印刷ページの設定

//Excelを操作するためのタイプライブラリを読みこむ(Excel2000用)
#import "C:\Program Files\Microsoft Office 2000\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesXL")   
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace   
#import "C:\Program Files\Microsoft Office 2000\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") no_dual_interfaces


//実行用のコード
void CXlssetprnDlg::OnButton1() 
{
	COleVariant data;

	using namespace Excel;
	_ApplicationPtr pXL;
	

 	//Excelの起動
	pXL.CreateInstance(L"Excel.Application");
	pXL->Visible = TRUE;

	//WorkBookを追加する
	WorkbooksPtr pBooks = pXL->Workbooks;
	_WorkbookPtr pBook  = pBooks->Add((long)xlWorksheet);

	//印刷ページの設定を実施するSheetオブジェクト設定
	data = (short)1;
	_WorksheetPtr pSheet = pBook->Worksheets->Item[data];

	//フッタの値を設定
	pSheet->PageSetup->LeftFooter = "aaaaaaaa";
	pSheet->PageSetup->CenterFooter = "bbbbbbb";
	pSheet->PageSetup->RightFooter = "cccccccc";

	//ヘッダの値を設定
	pSheet->PageSetup->LeftHeader = "xxxxxxxx";
	pSheet->PageSetup->CenterHeader = "yyyyyyyyyy";
	pSheet->PageSetup->RightHeader = "zzzzzzzzzzzz";

	//警告メッセージが出ないようにする
	pXL->DisplayAlerts  = FALSE;

	AfxMessageBox("動作確認のために一時停止");

	pXL->Quit();

}