![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ご回答が頂けないようですので再投稿です。
今回応答がない場合は違うサイトを探します。。
Printerオブジェクトを使用して伝票出力をします。
出力文字列の表示位置に関してご教授願います。
Printer.CurrentX = (縦位置)
Printer.CurrentY = (横位置)
Printer.Print (出力文字)
※単位はミリメートルです。
※伝票(縦:114、横:210)
Printer.CurrentXの指定方法が分かりません。
テストで指定して実装してみたのですが私の勝手な
推測ですが余白??の関係で私が意図した位置に表示
されません。CurrentXの指定は余白分を考慮して
設定しないといけないのでしょうか?
ご教授のほどよろしくお願いします。
No.4ベストアンサー
- 回答日時:
まず、社外向けなら、再配布可能な、他社のアドオンをお勧めします。
社内向けなら、努力してください。
VB6のプリンターコマンドはまったく出鱈目です。
また、プリンタードライバーは、マシンの差を吸収してくれません。LAN経由になるともっとひどいです。
と言いつつ、サイズから行くと宅急便の送り状のように見えますが、ひとつの方法として
FORM に CommonDialog1 貼り付け
印刷コマンドに
PRINTER_SET
Printer.ScaleMode = 0
Printer.height = 7350 '7300 '紙が 厚いので 理論値より大きい
Printer.width = 19500
Printer.Scale (0, 0)-(300, 127)
Printer.Print ’プリント開始
Dim tate_y As Integer
Dim yoko_x As Integer
tate_y = -5 誤差調整
yoko_x = 0
Printer.FontName = "P明朝"
If Data1.Recordset!郵便番号 = "" Or IsNull(Data1.Recordset!郵便番号) = True Then
Else
Printer.FontSize = 20
X = 0
Do While Len(Data1.Recordset!郵便番号) > X
If X > 2 Then
Printer.CurrentX = yoko_x + 44 + X * 10 '38-7
Else
Printer.CurrentX = yoko_x + 40 + X * 10 ' 35-7
End If
Printer.CurrentY = tate_y + 7
Printer.Print Mid(Data1.Recordset!郵便番号, X + 1, 1)
X = X + 1
Loop
End If
*
*
*
*
*
Printer.FontSize = 14
Printer.CurrentX = yoko_x + 40
Printer.CurrentY = tate_y + 160
Printer.Print 自社名
Printer.EndDoc 1枚終わり
///////
Public Sub PRINTER_SET()
For I = 0 To Printers.Count - 1
If Printers(I).DeviceName = RENPURIDRV Then
Set Printer = Printers(I)
Exit For
End If
Next I
End Sub
No.3
- 回答日時:
こんにちは。
まさかとは思いますが、
Printer.ScaleMode はミリメートルになってますよね?
Printer.ScaleMode = 6 でしたっけ?
外してましたらご愛嬌ということで。。。(^^;;;
以上です。
No.1
- 回答日時:
今、わたしはVB6が無いので、CurrentX/Yの動きはわかりません。
ところで、、、
質問を見る限り、業務用のアプリを作成ですよね?
パッケージではなく、特定の納品先へのアプリですよね?
「伝票」を印刷するプリンタは、固定ではないのですか?
これらが前提としてと、、、
そちらに実環境と同型のプリンタがあれば、余白設定値も含め手順書として納めればいいように思いますが、いかがでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで上下に同じ書類を作成す...
-
Excelで・・・1ページあたりの...
-
アクセスで、レポートの幅がペ...
-
エクセルを余白なしでPDF化したい
-
ワードパッド 横 切れ
-
EXCELでA4用紙に余白ナシで印刷...
-
LibreOfficeのCalcの印刷に関す...
-
至急です。 課題でA41枚、1600...
-
OpenOffice Calc(エクセルの互...
-
見開き2ページのPDFを1ページに...
-
access2003 レポートを中央に印...
-
原稿用紙設定で余白を変えたい
-
レポート用紙に印刷したいので...
-
エクセルで作った表(上下2つ...
-
Excel(エクセル)で用紙の中央...
-
アクセスのレポート印刷がうま...
-
Wordの両面印刷で余白をそろえ...
-
プレビューで見ると、図の一部...
-
Macのテキストエディットを使っ...
-
wordが下半分しか書けません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで上下に同じ書類を作成す...
-
Excelで・・・1ページあたりの...
-
エクセルを余白なしでPDF化したい
-
EXCELでA4用紙に余白ナシで印刷...
-
Wordのページ設定を初期化したい
-
至急です。 課題でA41枚、1600...
-
見開き2ページのPDFを1ページに...
-
ワードパッド 横 切れ
-
アクセスで、レポートの幅がペ...
-
エクセルの余白のようなもの
-
エクセルで作った表(上下2つ...
-
Excel(エクセル)で用紙の中央...
-
access2003 レポートを中央に印...
-
PDFデータに余白を作る
-
LibreOfficeのCalcの印刷に関す...
-
原稿用紙設定で余白を変えたい
-
パワーポイント印刷時の余白設...
-
余白が左右均等になりません。
-
テプラ(PCからプリント)で先...
-
エクセルでA3用紙を印刷し、余...
おすすめ情報