名前 題名 ▼ takiさん > Delphi XE4 StarterでExcelを操作してみました。 > マスターの > http://mrxray.on.coocan.jp/Delphi/plSamples/400_Excel_CreateObject.htm#00 > を参考に(ほぼ丸写し)してテストしました。 > > starterなのでExcel2000.dcuがありませんので、usesからExcel2000をコメントアウトして > 以下の定数を調べて定義してコンパイルしました。 > > const > xlMaximized = -4137; > xlShiftDown = -4121; > xlValues = -4163; > xlContinuous = 1; > xlMedium = -4138; > xlInsideVertical = 11; > xlHairline = 1; > xlInsideHorizontal = 12; > xlEdgeTop = 8; > xlThick = 4; > xlEdgeBottom = 9; > xlEdgeLeft = 7; > xlEdgeRight = 10; > xlCenter = -4108; > xlDiagonalDown = 5; > xlDot = -4118; > xlDiagonalUp = 6; > > やっていることは、 > Excelのシートに既に作成されている印刷フォームのセルに > Delphiから値を書き込んで印刷させます。 > > 印刷の部分はVBAのコードを参考にして > procedure TForm1.Button14Click(Sender: TObject); > begin > if VarIsEmpty(ExcelObj) then exit; > WorkSheet.PrintOut(1,1); // 1ページから1ページ > end; > とすると印刷できました。 > > 既にたくさんの印刷フォームがエクセルで作成されていたので > それを使わないのはもったいないと思い試してみました。 > > 逆にExcel2000.pasの内容が気になりますが…。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link