喫茶XRAY [Mr.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の内容が気になりますが…。

[12275] Re:DelphiからExcelの印刷機能を使うと楽ちん

返信　削除

2018/9/14 (金) 20:56:50 Mr.XRAY

▼ takiさん

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

ハハハッ．すみませんねぇ．
Excel2000.pas で使っているのは定数名ぐらいです．
昔，ネット上の質問で xlxxx が未定義のエラーになります，というのがありました．
でもって，uses に ExcelXXX.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に指定し直して検索しましたが、ファイルはみつかりませんでした。

まあ、いいんですけど。

[12284] Re2:ファイル検索

返信　削除

2018/9/15 (土) 23:05:45 Mr.XRAY

▼ takiさん

> \19.0以下にOCXというフォルダは見当たりません。

ええっ !?
う～む．インストールの時に何か設定があったのかな ?
分かりません．

[12287] なんでだろ～

返信　削除

2018/9/16 (日) 18:48:36 taki

▼ Mr.XRAYさん
> ▼ takiさん
>
> > \19.0以下にOCXというフォルダは見当たりません。
>
> ええっ !?
> う～む．インストールの時に何か設定があったのかな ?
> 分かりません．

Embarcaderoからのメールでは「Delphi 10.2 Tokyo Community Edition」の
案内だったので、どこでStarter Editionに変わってしまったのかが疑問です。

実はこのPCには「Delphi 10.1 Berlin Starter」がインストールされています。
そこへTokyo Communityをインストールしたので、ライセンスがStarterに
変更されてしまったのかもしれません。

Tokyo Communityのインストール完了時に「Starterのライセンスで…」
みたいなメッセージが出たことを思い出しました。

つまり、Tokyo Communityをインストールする前にBerlinをアンインストール
しておけば良かったのかもしれません。

Tokyo Communityの案内のメールのソフトウェアダウンロードのリンクが
まだ生きているいればやり直せるのかも知れませんが、Berlinも失い、
Tokyoも再インストールできないと困るので踏み切れません。(-_-;)

[12288] Re:なんでだろ～

返信　削除

2018/9/16 (日) 22:30:53 igy

▼ takiさん
> Tokyo Communityの案内のメールのソフトウェアダウンロードのリンクが
> まだ生きているいればやり直せるのかも知れませんが、Berlinも失い、
> Tokyoも再インストールできないと困るので踏み切れません。(-_-;)]]

確証はないのですが・・

10.1 Berlin Starter は、インストール番号が記載されたメールが届き、ライセンス認証を済まれているの思うので、
無効にならないのではないかと。
10.2 Tokyo Community Editionのほうは、インストール番号が記載されたメールが届いているけど、
ライセンス認証は、まだなので、ライセンス認証が完了してから、１年間使用できるようになるのではないかと・・・

とりあえず、binフォルダにある LicenseManager.exe で、現在インストールされている製品の情報を
確認してみるのもよいかと思います。

[12289] Re2:なんでだろ～

返信　削除

2018/9/16 (日) 23:14:56 taki

▼ igyさん
>
> 確証はないのですが・・
>
> 10.1 Berlin Starter は、インストール番号が記載されたメールが届き、ライセンス認証を済まれているの思うので、
> 無効にならないのではないかと。
> 10.2 Tokyo Community Editionのほうは、インストール番号が記載されたメールが届いているけど、
> ライセンス認証は、まだなので、ライセンス認証が完了してから、１年間使用できるようになるのではないかと・・・
>
> とりあえず、binフォルダにある LicenseManager.exe で、現在インストールされている製品の情報を
> 確認してみるのもよいかと思います。

ありがとうございます。

この投稿を見る前の話になりますが、ダウンロードフォルダに残っていた
radstudio10_2_3_esd＿93231.exeを思い切って実行しました。

インストールを進めていくと、「既存のライセンスがみつかりました」
というのがあり、デフォルトでは「既存のライセンスを使用」となっていました。
それを「新規ライセンスの入力」にして進めると、Tokyo Communityが
めでたくインストールできました。

マスター、すみませんでした。
Excel2000.pasのファイルの存在も確認できました。まだ中身は見ていませんが…。

igyさんの言う通り、まだTokyo Community Editionのライセンス認証は
完了していなかったんですね。助かりました。

もちろん、メールで届いていたインストール番号も入力しました。

[12292] Re3:なんでだろ～

返信　削除

2018/9/17 (月) 11:20:02 Mr.XRAY

▼ takiさん

> めでたくインストールできました。

また無料版のユーザが増えましたか...
商売にならないなぁ (笑)

[12285] Re5:DelphiからExcelの印刷機能を使うと楽ちん

返信　削除

2018/9/15 (土) 23:17:04 igy

▼ takiさん
> ▼ Mr.XRAYさん
> > ▼ takiさん
> >
> > > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> > > ダウンロード時にソースファイルを選択しなかったのかな？？？
> >
> > Microsoft Office 関係のヘルプはないです．ハイ．
> > もちろんオンラインヘルプにもありませんです．
> >
>
> Delphi10.2をインストールしたPCでソースファイルを探したのですが、
>
> C:\Program Files (x86)\Embarcadero\Studio\19.0\source
>
> にはIndy10しか見つかりませんでした。T_T
>
>

もしかして、Starter版とか・・（違ってたら、ごめんなさい。）

[12286] Re6:DelphiからExcelの印刷機能を使うと楽ちん

返信　削除

2018/9/16 (日) 14:59:06 taki

▼ igyさん
> ▼ takiさん
> > ▼ Mr.XRAYさん
> > > ▼ takiさん
> > >
> > > > usesにExcel2000を追加してF1してもヘルプがみつかりません。
> >
>
> もしかして、Starter版とか・・（違ってたら、ごめんなさい。）

igyさん　正解です。

バージョン情報をよくよく確認すると、Starterとなっていました。

お騒がせしました。

[12277] Re:DelphiからExcelの印刷機能を使うと楽ちん

返信　削除

2018/9/14 (金) 21:10:21 igy

▼ takiさん
> Delphi XE4 StarterでExcelを操作してみました。

私も、
・印刷ダイアログを表示して印刷
・印刷プレビューを表示
とか、あと、（印刷じゃないですが）
・PDFファイル出力
など、使ってます。便利ですよね。

[▼次のスレッド]

INCM/CMT
Cyclamen v3.82