サーマルプリンタ 90度回転 マージン
宜しくお願いします。
EPSONのサーマルプリンタ(レシート印字用)にて
90度回転で印字したとき(領収書など)
下のほうが印字できずに困っています。
******************************
Public Const PTR_S_RECEIPT As Long = 2&
Public Const PTR_BM_LEFT As Long = -1&
Public Const PTR_BM_CENTER As Long = -2&
Public Const PTR_BM_RIGHT As Long = -3&
Public Const PTR_RP_NORMAL As Long = &H1&
Public Const PTR_RP_LEFT90 As Long = &H102&
Dim ESC As String * 1
ESC = Chr(&H1B)
With OPOSPOSPrinter1
.Open "PR1"
.ClaimDevice 1000
.DeviceEnabled = True
'高品位モードで出力
.RecLetterQuality = True
'*** 印字
' 左90度回転を指定
.RotatePrint PTR_S_RECEIPT, PTR_RP_LEFT90
.PrintNormal PTR_S_RECEIPT, ESC + "|4C" + ESC _
+ "|bC" + "領収書" + vbCrLf
.PrintNormal PTR_S_RECEIPT, " 行1 " + vbCrLf
.PrintNormal PTR_S_RECEIPT, " 行2 " + vbCrLf
↓
↓
↓
↓
' 回転モードを通常に戻す
.RotatePrint PTR_S_RECEIPT, PTR_RP_NORMAL
'ESC|#fP = カッター位置までフィード&カット
.PrintNormal PTR_S_RECEIPT, ESC + "|fP"
.DeviceEnabled = False
.ReleaseDevice
.Close
End With
******************************
と印字していきますと、下が2cm以上空いて
いるのに印字できなくなります・・・
マージン設定とかできるのでしょうか???
宜しくお願いしますm(__)m
お礼
通常はそう(25pin)だろうと思うのですが、 今回のサーマル漢字プリンターのプリンター側は26pinなのです。 製造元(シチズン)から貰った仕様書でそこらの確認はしています。 とにかく古い(1995年10月で製造中止!) ということに尽きるのでは、と判断しています。 それでもどこかに専用のコード(線)が無いかなということと、 そのような仕様に対応した考え方があって あまり障壁を意識することなくコード(線) を求めることができないかな、 ということなのです。