tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: 印刷の印字開始位置
投稿日: 2008/12/02(Tue) 22:06
投稿者魔界の仮面弁士
>3×7のタックシール印字を行うと
http://www.grapecity.com/Japan/Support/Search/FaqContent.asp?id=24063
を見ると、ColumnCount = 3 と設定しておくと、そのように印字できるのかな?


> 前回6件印字を行った場合、7件目から印字を行うなどの方法はあるのでしょうか
> 7という数字に関しては作業者に入力を行わせる予定です。
AR3.0 も VS2008 も手元に無いので、2.0 のヘルプを見ただけの「予想」コードですが、
どうやら、LayoutAction プロパティという物を使うと、
「同じデータを複数印字」「同じ位置に重ね打ち」「空行の出力」などと
切り替えられるようなので……明細セクション(Detailだっけか?)のイベントで
それを弄ってやれば、もしかしたら実装できるかも。


Class Form1
 Private Sub Button1_Click(〜〜
  Dim SkipTackSeal As UInteger = CUInt(NumericUpDown1.Value)
  Dim r As New ActiveReport1(SkipTackSeal)
  r.DataSource = data
  r.Show()
 End Sub
End Class

Partial Class ActiveReport1
 Private SkipCount As UInteger = 0
 Private CurrentPosition As UInteger = 0

 Public Sub New(ByVal skipCount As UInteger)
  Me.New()
  Me.SkipCount = skipCount
 End Sub

 Private Sub Detail_Format(〜〜
  If CurrentPosition < SkipCount Then
   LayoutAction = LayoutAction.MoveLayout
   CurrentPosition += 1
  Else
   LayoutAction = LayoutAction.MoveLayout Or LayoutAction.PrintSection Or LayoutAction.NextRecord
  End If
 End Sub
End Class


それで駄目なら、DataTable の先頭に空レコードを幾つか挿入してみてはどうでしょう。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。