PRINT LABEL
PRINT LABEL ( {aTable }{;}{ document {; * | >}} )
| 引数 | 型 | 説明 | |
|---|---|---|---|
| aTable | テーブル | 🡒 | 印刷するテーブル, または 省略した場合、デフォルトテーブル |
| document | 文字 | 🡒 | ディスクに保存したラベルドキュメント名 |
| * | > | 🡒 | *: 印刷ダイアログを省略, または >: 印刷設定の再初期化をしない |
説明
PRINT LABEL は、aTableのセレクションのデータを使用してラベルを印刷します。
document パラメーターを指定しない場合、PRINT LABEL はカレント出力フォームを使用して、aTableのカレントセレクションをラベル印刷します。サブフォームの印刷にこのコマンドを使用することはできません。ラベルのフォーム作成に関する詳細は 4D Design Reference マニュアルを参照してください。
document を指定すると、PRINT LABEL コマンドは、ラベルウィザード（下図）を表示するか、またはディスクに保存され た既存のラベルドキュメントを印刷します。以下の説明を参照してください。
デフォルトで、PRINT LABEL は印刷の前にプリントジョブダイアログボックスを表示します。 ユーザーが印刷ダイアログボックスを取消すと、コマンドはキャンセルされラベルは印刷されません。
オプションの * または > 引数を使用することで、印刷ダイアログボックスを抑制することが出来ます:
- * 引数は、現在の印刷設定 に従い、印刷処理を行います。
- > 引数は上記に加え、現在の印刷設定を再初期化することなく印刷を行います。この設定は、以前に設定した内容を継続し、(例えばループ中で) 連続したPRINT LABEL コマンドを使用する時に役立ちます。この引数の使用例は PRINT RECORD コマンドの例を参照してください。
これらの引数はラベルウィザード使用時には効果を持たないことに注意してください。
ラベルウィザードを使用しない場合、ラベルがすべてプリントされるとシステム変数OKに1が代入されます。それ以外の場合には0が代入されます (印刷ダイアログボックスでキャンセルがクリックされた場合等)。
document 引数を指定すると、ラベルはdocumentに定義されたラベル設定情報に従って印刷されます。document に空の文字列 ("") を指定すると、PRINT LABEL はファイルを開くダイアログボックスが表示し、ユーザーはラベル設定と して使用するファイルを指定することができます。documentに存在しないドキュメント名を指定すると (例えばchar(1)をdocumentに渡す) 、ラベルウィザードが表示され、ユーザーはラベル設定を定義することができます。
Note: デザインモードで、tableが非表示に設定されている場合、ラベルウィザードは表示されません。
4D Server: このコマンドは、ストアドプロシージャー内にて4D Server上で実行することができます。この状況では、次の制約があります:
- サーバーマシン上ではダイアログボックスを一切表示しないでください (特定の必要性がある場合を除く)。そのためにはこのコマンドを * または > 引数付きで呼び出さなければなりません。
- ラベルエディターが表示されるシンタックスは4D Serverでは動作しません。この場合システム変数OKは0に設定されます。
- プリンター関連の問題が発生しても (用紙切れ、プリンター接続切断等) 、エラーメッセージは生成されません。
例題 1
以下の例は、テーブルの出力フォームを使用してラベルを印刷します。この例では2つのメソッドを使用します。最初のプロジェクトメソッドは正しい出力フォームを設定し、ラベルを印刷します:
ALL RECORDS([Addresses]) // 全レコードを選択
FORM SET OUTPUT([Addresses];"Label Out") // 出力フォームを選択
PRINT LABEL([Addresses]) // ラベルを印刷
FORM SET OUTPUT([Addresses];"Output") // デフォルトの出力フォームに戻す
2つ目のメソッドはフォーム“Label Out”のフォームメソッドです。このフォームは、各フィールドの内容を連結した結果を格納するための1つの変数vLabelを含みます。フィールドAddr2が空の場合、メソッドにより取り除かれます。ラベルウィザードを使用しても、この処理が自動的に実行される点に注意してください。フォームメソッドは、各レコードに対して1つずつラベルを作成します:
// [Addresses]; "Label Out" フォームメソッド
Case of
:(Form event code=On Load) //v17 以前ではForm event を使用すること
vLabel:=[Addresses]Name1+" "+[Addresses]Name2+Char(13)+[Addresses]Addr1+Char(13)
If([Addresses]Addr2 #"")
vLabel:=vLabel+[Addresses]Addr2+Char(13)
End if
vLabel:=vLabel+[Addresses]City+", "+[Addresses]State+" "+[Addresses]ZipCode
End case
例題 2
以下の例では、ユーザが[People]テーブルを検索し、自動で“My Labels”ラベルを印刷します:
QUERY([People])
If(OK=1)
PRINT LABEL([People];"My Labels";*)
End if
例題 3
以下の例では、ユーザが[People]テーブルを検索し、印刷するラベルを選択します:
QUERY([People])
If(OK=1)
PRINT LABEL([People];"")
End if
例題 4
以下の例では、ユーザが[People]テーブルを検索し、ラベルウィザードを表示して任意のラベルの設計、保存、ロード、印刷を行います:
QUERY([People])
If(OK=1)
PRINT LABEL([People];Char(1))
End if