開発のあいまに

Crystal Reports でユーザー設定用紙の印刷を行う場合。

Crystal Reports が標準でサポートしている用紙サイズ以外に、ユーザーが独自に設定した用紙サイズ（11×5 ｲﾝﾁ など）で印刷する場合、対象の端末全てに用紙サイズを登録しますが、Crystal Reports の場合、それだけでは実現できません。

Crystal Reports は用紙設定を「11×5 ｲﾝﾁ」などの名称で保持せず、インデックス化して保持し、また、そのインデックスはＰＣ毎に異なる為、Crystal Reports を実行したＰＣから、必要な用紙サイズのインデックスを、取得する必要があります。

その為の共通メソッドを作りました。このメソッドのreturn値を、Crystal Reports の PaperSize に設定すれば、ＰＣによって用紙サイズが変わるといったバグは解決できます。

 

１、このメソッドを実装する際に必要となる参照設定はこの辺です。 

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing.Printing;
using System.Windows.Forms;
using System.Reflection;
using System.Data;
using System.IO;

 

２、これがメソッドの実態です。 

public static int GetPaperSize(string strPrinterName, string strPaperName)
{
 PrintDocument doctoprint = new PrintDocument();
 doctoprint.PrinterSettings.PrinterName = strPrinterName;

 int rawKind = 0;
 for (int i = 0; i < doctoprint.PrinterSettings.PaperSizes.Count; i++)
 {
  if (doctoprint.PrinterSettings.PaperSizes[i].PaperName.Equals(strPaperName) == false)
   continue;

  rawKind = Convert.ToInt32(doctoprint.PrinterSettings.PaperSizes[i].GetType()
   .GetField("kind", BindingFlags.NonPublic | BindingFlags.Instance)
   .GetValue(doctoprint.PrinterSettings.PaperSizes[i]));

  break;
 }

 return rawKind;
}

 

３、このメソッドのreturn値を使うには、(CrystalDecisions.Shared.PaperSize)でキャストする必要があります。

CrystalReport1 MyReport = new CrystalReport1();
MyReport.PrintOptions.PaperSize = (CrystalDecisions.Shared.PaperSize)GetPaperSize("LBP4500", "11×5 ｲﾝﾁ");

Crestal Report の初回表示速度を改善する。

Crestal Report は初回起動時に、WANへ発行証明書を取得しに行くので、インターネットに接続できない環境では、サーバーが見つからない為に時間がかかってしまいますが、Internet Explorer の「ツール ⇒ インターネットオプション ⇒ 詳細設定」を開き、セキュリティ欄の「発行証明書の取り消しを確認する」をチェック無しに設定する事で、初回のサーバー検索を止める事ができる。

 

Crystal Report の「詳細」Sectionの背景色を、行単位に白と灰色のシマシマにする。

行単位に背景色を白と灰色に切り替える場合は、「詳細」Sectionに追加した項目それぞれ対し、「書式エディタ」を開いて「境界線」タブの「背景」欄の右側にある「×+2」ボタンをクリックし、式エディタから以下のコードを記述する事で実現できる。

shared numberVar iNo;
WhilePrintingRecords;
IF iNo mod 2 = 0 THEN
 crSilver
ELSE
 crNoColor

Crystal Report の関数を使ってナンバリングする

「詳細」Sectionの行数やNo列を、グループが変わる度に「１」からナンバリングしたい場合は、Crystal Reportの関数でも実現できる。

1、式フィールドに「NO_DEFAULT」以下のコードが記述された式を新規作成する。
shared numberVar iNo := 1;
shared stringVar OkurijyoNo := "";

2、式フィールドに「NO」以下のコードが記述された式を新規作成する。
shared numberVar iNo;
shared stringVar OkurijyoNo;

WhilePrintingRecords;

If {DATA_LIST.OKURIJO_NO}  = OkurijyoNo Then
(
    iNo := iNo + 1;
)
Else
(
    OkurijyoNo := {DATA_LIST.OKURIJO_NO};
    iNo := 1
);

3、「詳細」Sectionに式フィールドの「NO」をドラッグ＆ドロップする。