アクティブレポートではがきに印刷する

アクティブレポートではがきに印刷するには、まず、用紙のサイズをはかります。
日本のハガキの場合、100mm×140mmです。

ReportStartイベントで、
Me.PageSettings.PaperKind = Drawing.Printing.PaperKind.JapanesePostcard
として、用紙のサイズを変更します。

ActiveReportsは縦書きには対応していません。
そのため、文字列を一文字ずつに分解して、改行します。


Dim iCnt As Integer
Dim sSource As String '元の文字列
Dim sRtn As String '変換後の文字列

If sSource <> "" Then
For iCnt = 0 To sSource.Length - 1
If sRtn = "" Then
sRtn = sSource.Substring(iCnt, 1)
Else
sRtn &= vbCrLf & sSource.Substring(iCnt, 1)
End If
Next
End If

こんな感じで変換します。
なぜか、縦に文字を並べると、最後の一文字が横にずれることがあるので、
その場合は、最後に、スペースを追加すると、ずれているのはスペースになるので、問題なくなります。

後は、住所の ○○-○○ という部分のハイフンを「|」に変換したり、
数字を漢数字に変換します。

郵便暗号の位置は定規で測って、Googleで「○○mmは何インチ?」と検索します。

さらに、マージンをなくします。
これは、*.rpxというファイルの



に変えます。
PageSettingsで、現在のプロジェクトで検索すると、

と出てくるので、そこを編集します。
posted by VB.NET+MSDE+ActiveReports at 02:26 | Comment(0) | TrackBack(0) | ActiveReports
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/20431389