VBのtextboxでの印刷枚数設定

初心者ですが会社の製品に貼るラベルのLot．入力でほぼ完成ですが、つけたしでtextboxに印刷する枚数を設定したいのですが？

No.2 ベストアンサー 回答者： kakusuke 回答日時： 2005/05/07 01:08

Private Sub cmdPrint_Click()

Dim intLoop As Integer
Dim i As Integer
If Val(Me.txtLoop.Text) <= 0 Then
intLoop = 1
Else
intLoop = Val(Me.txtLoop.Text)
End If
For i = 1 To intLoop
With Printer
.CurrentX = 3800
.CurrentY = 4100
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo1.Text
.CurrentX = 3800
.CurrentY = 9720
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo2.Text
.CurrentX = 3800
.CurrentY = 15400
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo3.Text
Printer.EndDoc
End With
Next
End Sub
Private Sub Form_Load()
Me.txtLotNo1.Text = Format(Now, "eemmdd")
Me.txtLotNo2.Text = Format(Now, "eemmdd")
Me.txtLotNo3.Text = Format(Now, "eemmdd")
End Sub
Private Sub Command2_Click()
End
End Sub

こんなものでどうでしょうか？

この回答への補足

教えてもらいながらやったので本当に何度もすみません。4段目の.txtLoop.にエラーがでるのですが。．．暇な時でもかまわないので、またお願いしときます。

補足日時：2005/05/07 03:51

この回答へのお礼

それと、まだ枚数の設定をする。TextBoxは追加していない状態です。

お礼日時：2005/05/07 04:19

No.3 回答者： kakusuke 回答日時： 2005/05/07 11:59

#２です。

枚数指定用のTextboxを
txtLoopとしています。

この回答へのお礼

分かりました。ありがとうございました。

お礼日時：2005/05/10 23:31

No.1 回答者： kakusuke 回答日時： 2005/05/01 23:16

回答するにも

最低限の情報が必要です。

この場合、
・ＶＢのバージョン
・印刷用のツール
・現行のコード
が必要となると思います。

その上で質問をしなければ、
対応策は取れません。

正直質問の全貌が見えてきません。

この回答への補足

ありがとうございます。
失礼しました。Microsoft Visual Basic 6.0です。
A4サイズにシールラベルが3つある状態です。
Private Sub cmdPrint_Click()
With Printer
.CurrentX = 3800
.CurrentY = 4100
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo1.Text
.CurrentX = 3800
.CurrentY = 9720
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo2.Text
.CurrentX = 3800
.CurrentY = 15400
.FontName = "ＭＳ ゴシック"
.FontSize = 16
Printer.Print Me.txtLotNo3.Text
Printer.EndDoc
End With
End Sub
Private Sub Form_Load()
Me.txtLotNo1.Text = Format(Now, "eemmdd")
Me.txtLotNo2.Text = Format(Now, "eemmdd")
Me.txtLotNo3.Text = Format(Now, "eemmdd")
End Sub
Private Sub Command2_Click()
End
End Sub
この中にtextboxをつけたし、枚数を設定出来る常態にしたいのですが？

補足日時：2005/05/06 21:11