2009/03/31

blosxomのスタイルシート1

quote-title

どういう風に見える?

See more ...

Posted at 00:29 in blosxom | WriteBacks (1) | Edit

2009/02/07

VBAでPDF

だいぶ時間がたってしまったな。
エクセルのVBEを開いて「libharu\if\vb6」のフォルダにある「*.bas」をインポート。標準モジュールを追加して下記コードを貼り付け&実行する。
Sub test1()
Dim pdf As Long
Dim font As Long
Dim page As Long
Dim fname As String * 256

fname = ThisWorkbook.Path & "\練習.pdf"

pdf = HPDF_New(AddressOf Error_Handler, ByVal vbNullString)

If pdf = 0 Then
Exit Sub
End If

Call HPDF_SetCompressionMode(pdf, HPDF_COMP_ALL)

Call HPDF_SetPageMode(pdf, HPDF_PAGE_MODE_USE_NONE) 'アウトラインやサムネイルを表示しません。

Call HPDF_SetPageLayout(pdf, HPDF_PAGE_LAYOUT_SINGLE) 'シングル表示

'Call HPDF_SetPassword(pdf, "owner", "user")

page = HPDF_AddPage(pdf)

'Call HPDF_Page_SetSize(page, HPDF_PAGE_SIZE_A4, HPDF_PAGE_LANDSCAPE) '横
Call HPDF_Page_SetSize(page, HPDF_PAGE_SIZE_A4, HPDF_PAGE_PORTRAIT) '縦

Call print_grid(pdf, page)

Call HPDF_UseJPEncodings(pdf)
Call HPDF_UseJPFonts(pdf)

'font = HPDF_GetFont(pdf, ByVal "Helvetica", ByVal vbNullString)
font = HPDF_GetFont(pdf, ByVal "MS-Gothic", ByVal "90ms-RKSJ-H")

'Call HPDF_Page_SetTextRenderingMode(page, HPDF_STROKE)
Call HPDF_Page_SetRGBFill(page, 0#, 0#, 1)
Call HPDF_Page_SetFontAndSize(page, font, 24)

Call HPDF_Page_BeginText(page)

Call HPDF_Page_TextOut(page, 10, HPDF_Page_GetHeight(page) - 50, "ハローワールド hello world")

Call HPDF_Page_EndText(page)

Call HPDF_SaveToFile(pdf, fname)

Call HPDF_Free(pdf)

End Sub

すばらしい!

2008/09/10

Haru PDF1

前の投稿の続き。
まず、Haru PDF Libraryのページへ行き、
Downloadsコーナーから
libharu_2_0_8_dll_win32.zip
をダウンロードします。

解凍してできる[libhpdf.dll]をwindowsのシステムフォルダへコピー。

これで準備OK

PDF

エクセルからPDF使えたら便利と思いませんか?

PHP、Pythonといった言語ではフリーのライブラリがあるようですね。
調べたところ、C言語ではありますが、Haru Free PDF libraryで配布されているdllを使うと実現できそうです。

試してみましょ。

2008/08/08

Python

スクリプト言語って今まで意識していなかったのですが、バッチ処理として利用するといろいろできそうですね。
最近ネット上ではPythonが人気が出てきているようなので、勉強してみようかな。

Page 5 of 6: « 1 2 3 4 5 6