xxdoc

''' 仮想プリンタ名称を取得する
Public Function GfnGetPdfPrinterName() As String
    Dim LobjPrinter As Object
    Dim LstrCommand As String
    
    Set LobjPrinter = CreateObject("Bullzip.PDFPrinterSettings")
    
    LobjPrinter.SetPrinterName "Bullzip PDF Printer2"
    

xxdoc

 Option Explicit
    
  Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
  Private Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO)
  Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
  Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
  Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
  Private 

xxdoc

'類別名稱：ComWithoutRegister
'程式語言：Visual Basic
'開發平台：Microsft Viaual Basic 6(VB6)
'說明：VB6不註冊調用ActiveX Dll。以下為本人案例， 請依你的需求變更“your”的部份。
'注意：此範例無法處理動態調用。
'注意2：需設定引用項目olelib.tlb (Edanmo's OLE interfaces & functions v1.81)，http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip
'注意3：在引用不註冊的COM Class時，其中的 ReDim 指令只能用 private 型態，不然會失效。這不科學但存在。若非用不可需自己多加一道額外的轉換 public 操作。
'參考資料：http://blog.yam.com/wyattkid/article/16416433

Option Explicit

xxdoc

Public Function MakeDirectory(ByVal base_dir As String, ByVal dir_name As String) As String
    Rem 建立目錄，若已建立就不再建立
    Rem 但一次只能建立１層目錄
    
    Dim full_dir_path As String
    full_dir_path = base_dir & "\" & dir_name
    
    If Dir(full_dir_path, vbDirectory) = "" Then ' 輸出目錄不存在，自動建立新的
        MkDir (full_dir_path)
    End If

xxdoc

Option Explicit
Private Const PAGE_EXECUTE_READWRITE = &H40
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Long, Source As Long, ByVal Length As Long)
Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _
        ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _
        ByVal lpProcName As String) As Long
Private Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, _

xxdoc

' Source: VBA – Create Directory Structure/Create Multiple Directories/Create Nested Directories
' URL: https://www.devhut.net/2011/09/15/vba-create-directory-structurecreate-multiple-directories/
' Daniel Pineault, 15SEP2011.
Public Sub CreateDir(sPath As String)
' Source: https://www.devhut.net/2011/09/15/vba-create-directory-structurecreate-multiple-directories/
    Dim iStart          As Integer
    Dim aDirs           As Variant
    Dim sCurDir         As String
    Dim i               As Integer
 

xxdoc

' pinyin.bas vb6
'*************************************************************************
'**函 数 名：gGetPinYin
'**输 入：ByVal intHanZiAsc(Integer) -汉字的ASCII码，用ASC函数取得
'**输 出：(String) -一个拼音字符串
'**功能描述：输入一个汉字，输出一个拼音
'**全局变量：
'**调用模块：
'**作 者：wild
'**日 期：2004-10-06

xxdoc

'Option Explicit
Option Base 0

'HTML出力
Sub outputHtml()

    Call outputList 'リストHTML出力
    Call outputWords    '単語群HTML出力
    
    MsgBox ("完了しました。用語集.htmlを開いてください。")

xxdoc

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    Destination As Any, _
    Source As Any, _
    ByVal Length As Long _
)

Private Const ERR_INVALID_PROCEDURE_CALL_OR_ARGUMENT As Long = 5  ' プロシージャの呼び出し、または引数が不正です。
Private Const ERR_SUBSCRIPT_OUT_OF_RANGE             As Long = 9  ' インデックスが有効範囲にありません。

xxdoc

'gistThat@mcpher.com :do not modify this line - see ramblings.mcpher.com for details: updated on 11/22/2013 11:15:19 AM : from manifest:7471153 gist https://gist.github.com/brucemcpherson/3423912/raw/cBrowser.cls
Option Explicit
' acknowledgement
' http://pastie.org/1192157 for basic authentication 'how to'
'for more about this
' http://ramblings.mcpher.com/Home/excelquirks/classeslink/data-manipulation-classes
'to contact me
' http://groups.google.com/group/excel-ramblings
'reuse of code
' http://ramblings.mcpher.com/Home/excelquirks/codeuse