投稿日	： 2004/03/24(Wed) 16:49
投稿者	： くるりん
Ｅメール	：
ＵＲＬ	：
タイトル	： 印刷関係での質問です

はじめまして、こんにちわ。わからないことがあるので質問させていただきます。

VBで印刷のプログラムを作っていまして、白、灰色、白、灰色とボックスを入れていく
ところがあるのですが、実際にテスト印刷してみると最初だけ　白、灰色　となってその後はずっと
真っ白なままになってしまいます。
以下のようなコードで行っているのですが、ご指摘を宜しくお願いします。

iflag = 1
ymax = Form1.ymax
xmax = Form1.xmax
printpagecnt = Form1.mtxt.Text

For cnt = 1 To printpagecnt Step 1
    
    For yline = 1 To ymax Step 1
        
        '10個いったら点線を引く　横
        If Right(yline, 1) = 0 Then
            Printer.DrawStyle = 2
            Printer.Line (0, yline * (40 * 6))-(xmax, yline * (40 * 6))
        End If
        
        xcnt = 0
        
        For xline = 0 To xmax
            
            If iflag = 1 Then
                Printer.Line (xline, (yline - 1) * (40 * 6))-(xcnt + 1 * (32 * 6), yline * (40 * 6)), QBColor(11), BF
                iflag = 0
            Else
                Printer.Line (xline, (yline - 1) * (40 * 6))-(xcnt + 1 * (32 * 6), yline * (40 * 6)), QBColor(15), BF
                iflag = 1
            End If
            
            xcnt = xcnt + 1
            xline = xcnt * (32 * 6)
            
            '10個いったら点線を引く　縦
            If Right(xcnt, 1) = 0 Then
                Printer.DrawStyle = 2
                Printer.Line (xline, 0)-(xline, ymax)
            End If
            
            'Printer.EndDoc
            'Exit Function
            
        Next
        
    Next
    
    Printer.NewPage
Next

□■□■□・・・・と、こんな結果にしたいのですが
□■□□□・・・・と、なってしまうのです（TT

★ - 印刷関係での質問です - くるりん 03/24-16:49No.8487
• Re: 印刷関係での質問です - 花ちゃん 03/24-23:03 No.8493
  • Re^2: 印刷関係での質問です - くるりん 03/25-10:28 No.8495
    • Re^3: 印刷関係での質問です - くるりん 03/25-15:19 No.8499
      • Re^4: 印刷関係での質問です - morimori 03/25-15:52 No.8500
        • ありがとうございました〜。 - くるりん 03/25-16:46 No.8501