![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
ご回答が頂けないようですので再投稿です。
今回応答がない場合は違うサイトを探します。。
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で質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー Brother MFC-7460DNの一時停止解除について 1 2022/12/03 12:38
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
- PDF I LOVE PDF利用 pdfからWordに変換について 回答お願いいたします。 無料のI LOV 1 2022/05/13 13:24
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) MID関数について 2 2022/04/22 09:13
- その他(Microsoft Office) 複数の写真を1枚に印刷 5 2023/05/05 22:41
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/03/04 09:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで上下に同じ書類を作成す...
-
Excelで・・・1ページあたりの...
-
Wordのページ設定を初期化したい
-
EXCELでA4用紙に余白ナシで印刷...
-
アクセスで、レポートの幅がペ...
-
エクセルを余白なしでPDF化したい
-
ワードパッド 横 切れ
-
見開き2ページのPDFを1ページに...
-
エクセルで作った表(上下2つ...
-
原稿用紙設定で余白を変えたい
-
エクセルでA3用紙を印刷し、余...
-
アクセスのレポート印刷がうま...
-
Excel(エクセル)で用紙の中央...
-
エクセル 印刷すると・・・1...
-
Adobe Illustratorで作ったやつ...
-
数式エディタmathchaについて
-
PDFデータに余白を作る
-
至急です。 課題でA41枚、1600...
-
Wordの両面印刷で余白をそろえ...
-
VisualStudioで、コードを印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで上下に同じ書類を作成す...
-
Excelで・・・1ページあたりの...
-
EXCELでA4用紙に余白ナシで印刷...
-
Wordのページ設定を初期化したい
-
エクセルを余白なしでPDF化したい
-
見開き2ページのPDFを1ページに...
-
アクセスで、レポートの幅がペ...
-
エクセルで作った表(上下2つ...
-
ワードパッド 横 切れ
-
Excel(エクセル)で用紙の中央...
-
PDFデータに余白を作る
-
至急です。 課題でA41枚、1600...
-
VisualStudioで、コードを印刷...
-
LibreOfficeのCalcの印刷に関す...
-
エクセルでA3用紙を印刷し、余...
-
access2003 レポートを中央に印...
-
エクセルの余白のようなもの
-
ルーズリーフに印刷したい
-
パワーポイント印刷時の余白設...
-
エクセルで、ページが自動で縮...
おすすめ情報