喫茶XRAYトップページ

[スレッド全体
]

[12274] DelphiからExcelの印刷機能を使うと楽ちん返信 削除
2018/9/14 (金) 20:43:51 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の内容が気になりますが…。


[12276] Re:DelphiからExcelの印刷機能を使うと楽ちん返信 削除
2018/9/14 (金) 21:08:32 Mr.XRAY
▼ takiさん

> 逆にExcel2000.pasの内容が気になりますが…。

Delphi 10.2.3 Community でしたらソースコードが付いていますから,
確認可能です.


[12278] Re2:DelphiからExcelの印刷機能を使うと楽ちん返信 削除
2018/9/15 (土) 15:13:52 taki
▼ Mr.XRAYさん
> ▼ takiさん
>
> > 逆にExcel2000.pasの内容が気になりますが…。
>
> Delphi 10.2.3 Community でしたらソースコードが付いていますから,
> 確認可能です.


太っ腹の「Delphi 10.2.3 Tokyo」の事ですよね。

usesにExcel2000を追加してF1してもヘルプがみつかりません。
ダウンロード時にソースファイルを選択しなかったのかな???


[12279] Re3:DelphiからExcelの印刷機能を使うと楽ちん返信 削除
2018/9/15 (土) 16:06:52 Mr.XRAY
▼ takiさん

> usesにExcel2000を追加してF1してもヘルプがみつかりません。
> ダウンロード時にソースファイルを選択しなかったのかな???


Microsoft Office 関係のヘルプはないです.ハイ.
もちろんオンラインヘルプにもありませんです.

[Excel - RAD Studio]
http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/Excel

Excel の定数名等の一覧は以下にありますが,日本語のページはありません.
https://docs.microsoft.com/en-us/office/vba/api/excel(enumerations)

もしかしたら VBA 関係のウェブページにあるかも知れません.
後はオフラインのヘルプですね.

[Microsoft Office 2007 - 2010 の VBA ヘルプ]
http://mrxray.on.coocan.jp/Delphi/Others/Office2007Help.htm


[12280] Re4:DelphiからExcelの印刷機能を使うと楽ちん返信 削除
2018/9/15 (土) 18:47:28 taki
▼ Mr.XRAYさん
> ▼ takiさん
>
> > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> > ダウンロード時にソースファイルを選択しなかったのかな???
>
> Microsoft Office 関係のヘルプはないです.ハイ.
> もちろんオンラインヘルプにもありませんです.
>


Delphi10.2をインストールしたPCでソースファイルを探したのですが、

C:\Program Files (x86)\Embarcadero\Studio\19.0\source

にはIndy10しか見つかりませんでした。T_T




[12281] ファイル検索返信 削除
2018/9/15 (土) 20:41:15 Mr.XRAY
▼ takiさん

> C:\Program Files (x86)\Embarcadero\Studio\19.0\source
>
> にはIndy10しか見つかりませんでした。T_T


C:\Program Files (x86)\Embarcadero\Studio\19.0\OCX\Servers
ですね.

エクスプローラの検索機能でファイル名を検索できますが,
TEAD 等のテキストエディタを使用してもファイルの検索ができます.
しかも検索したファイルをエディタで表示してくれます.

以下の記事の方法を応用してもファイルの検索が可能です.
xxx.pas というユニットファイルの最初のコードは .pas がない xxx なので.

[IDE からの文字列の検索]
http://mrxray.on.coocan.jp/Delphi/Others/FindText.htm

※ 私は自作のファイル検索プログラムを使用しています.あしからず (^^



[12282] Re:ファイル検索返信 削除
2018/9/15 (土) 22:36:08 taki
▼ Mr.XRAYさん
>
> C:\Program Files (x86)\Embarcadero\Studio\19.0\OCX\Servers
> ですね.


\19.0以下にOCXというフォルダは見当たりません。
隠しファイルも表示していますが。

>
> [IDE からの文字列の検索]
> http://mrxray.on.coocan.jp/Delphi/Others/FindText.htm
>


検索結果も同じですね。


[12283] Re2:ファイル検索返信 削除
2018/9/15 (土) 22:46:09 taki
ごめんなさい。
ディレクトリがC:\…\19.0\bin になっていました。
C:\…\19.0に指定し直して検索しましたが、ファイルはみつかりませんでした。

まあ、いいんですけど。

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82