URLをクリップボードにコピーしました
シェア用URL:https://faq2.epson.jp/web/Detail.aspx?id=52714
|
最終更新日 2022/07/06 |
FAQ番号:52714 |
|
TM-L90 で余白を節約する
|
|
TM-L90とレシート/全面ラベル紙で、上余白を無くした形で印刷する方法を教えてください。
|
|
-
-
TM-L90 には用紙を逆送りする機能があります。
その機能によってレシート/全面ラベル紙では上余白を節約できます。
また、以下の用紙では次ラベル/次マークまでの頭出しができます。
- 台紙に等間隔で 1枚ずつ貼られているダイカットラベル紙
- 等間隔でブラックマークが書かれたブラックマーク紙
EPSON OPOS ADK OLE版では、OPOS技術協議会発行の「Application Programmer's Guide日本語版(APG) 1.5版」以降に準拠したバージョンであれば、頭だし及び逆送りの機能を使用できます。
(※EPSON OPOS ADK OLE版 バージョン 2.10 以降)
具体的には以下のようにコーディングします。
Visual Basic 6.0 / 頭出しの例
※対応メソッド/プロパティー:[MarkFeed] メソッド / [CapRecMarkFeed] プロパティー
MaxPage = 10 ' 印刷枚数の指定
BcData = 1234567890123 ' (バーコードの値)
With OPOSPOSPrinter1
' 指定枚数(MaxPage)分、"印刷"+"頭だし"処理を行う
For Page = 1 to MaxPage
.PrintNormal PTR_S_RECEIPT, "\9,999"
.PrintBarCode PTR_S_RECEIPT, BcData, PTR_BCS_JAN13, _
.RecLineHeight, .RecLineWidth, _
PTR_BC_CENTER, PTR_BC_TEXT_BELOW
.PrintNormal PTR_S_RECEIPT, vbCrLf
' 次ラベル/次マーク付レシートの為の頭だし処理を行う
If Page <> Maxi Then
.MarkFeed PTR_MF_TO_NEXT_TOF
End If
Next Page
' ラベル同士の間(台紙部分)が、カッター位置にくるように紙送り
.MarkFeed PTR_MF_TO_CUTTER
' 用紙カットの実施
.CutPaper 100
End With
|
レシート/全面ラベル紙での逆送りは、DirectIO メソッドで指示できます。
Visual Basic 6.0 / 逆送りの例
Dim pData As Long
Dim pString As String
pData = 100
' 用紙カット後、"逆送り"して次印刷の上余白を無くす。
With OPOSPOSPrinter1
.DirectIO PTR_DI_CUT_AND_FEED_TOF, pData, pString
End With
|
TMシリーズ |
TM-L90 オートカッターモデル,TM-L90 ピーラーモデル |
|