忍者ブログ
  • 2018.11
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 2019.01
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【2018/12/17 11:44 】 |
VisualBasic.NET PDF作成方法


【PDF】PDF作成コンポーネント(PdfWriterLib.dll)をダウンロードし自作する方法
こちらからPdfWriteLib.dllをダウンロードします。
http://online-de.from.tv/dll/index.html

【コードサンプル】
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        '==================
        '文字列表示
        '==================
        Me.Pdf1.PdfSetBodyData(PdfWriterLib.BodyType.Text, "データ001")
        '==================
        'ヘッダー作成
        '==================
        Me.Pdf1.PdfSetHeader("ヘッダーです")
        '==================
        'フッター作成
        '==================
        Me.Pdf1.PdfSetFooter("フッターです")
        '==================
        '表(テーブル)作成
        '==================
        Dim dt As DataTable
        dt = GetTable()
        Me.Pdf1.PdfSetBodyData(PdfWriterLib.BodyType.Talbe, dt)
        '==================
        '画像張り付け
        '==================
        Me.Pdf1.PdfSetBodyData(PdfWriterLib.BodyType.Image, "C:\Users\x300\Dock.jpg")
        '==================
        '出力
        '==================
        Me.Pdf1.PdfCreate("pdf.pdf")
    End Sub

    ''' <summary>
    ''' 表データ作成(サンプル用)
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetTable() As DataTable
        Dim dt As DataTable
        dt = New DataTable
        dt.Columns.Add("Field1")
        dt.Columns.Add("Field2")
        Dim R As DataRow
        R = dt.NewRow()
        R.Item(0) = "123"
        R.Item(1) = "234"
        dt.Rows.Add(R)
        Return dt
    End Function
 

PR
【2010/06/01 08:10 】 | 未選択 | 有り難いご意見(0) | トラックバック(0)
<<エクセルをPDFに変換したい | ホーム | エクセルをPDFで出力するには>>
有り難いご意見
貴重なご意見の投稿














虎カムバック
トラックバックURL

<<前ページ | ホーム | 次ページ>>