Visual Basic 2008でプリンタ設定

こんにちは、モルです。いつも拝見させていただいています。

早速ですがVisual Basic 2008でプリンタ情報の設定の仕方でお聞きしたい事があります。
Visual Basic6では問題なく出来たのですが(API使用)、これをVisual Basic 2008に直したいのですが上手くいきませんでした。
しっかり理解しきれていない部分もあるので変換しきれないのだと思ってはいるのですが、何か方法がございましたら教えてくださると助かります。
APIを使わない方法など、ご意見などよろしくお願いします。

以下長いですがコードを貼らせてもらいます。

'モジュール 

Public Type PRINTER_DEFAULTS

    pDatatype     As String

    pDevMode      As Long

    DesiredAccess As Long

End Type

'http://www.winapi-database.com/Struct/DEVMODE.html 

Public Const CCHFORMNAME = 32

Public Const CCHDEVICENAME = 32



Public Type DEVMODE

    dmDeviceName       As String * CCHDEVICENAME 'デバイス名の文字列 

    dmSpecVersion      As Integer                'DEVMODEのバージョン(Win3.1 = &H30A) 

    dmDriverVersion    As Integer                'ドライバのバージョン 

    dmSize             As Integer                'DEVMODE構造体のバイト数 

    dmDriverExtra      As Integer                'DEVMODE構造体に続くデータのバイト数 

    dmFields           As Long                   'DEVMODE構造体の有効なエントリ数を指定 

    dmOrientation      As Integer                '用紙の向きを指定する定数 

    dmPaperSize        As Integer                '用紙サイズ 

    dmPaperLength      As Integer                '用紙の長さ(10mm単位)(dmPaperSizeに優先） 

    dmPaperWidth       As Integer                '用紙の幅(10mm単位)(dmPaperSizeに優先） 

    dmScale            As Integer                '用紙の拡大倍率(x/100単位) 

    dmCopies           As Integer                'コピー数 

    dmDefaultSource    As Integer                'デフォルトのピン番号 

    dmPrinterQuality   As Integer                '印刷品質 

    dmColor            As Integer                'カラーモード 

    dmDuplex           As Integer                '両面印刷の設定 

    dmYResolution      As Integer                'Y方向の印刷品質(Dot/inch) 

    dmTTOption         As Integer                'TrueTypeフォントの印刷方法 

    dmCollate          As Integer                'ページそろえの設定 

    dmFormname         As String * CCHFORMNAME   'フォーム名(WindowsNT系のみ) 

    dmUnusedPadding    As Integer                '未使用 

    dmBitsPerPel       As Integer                'ピクセルあたりのビット数 

    dmPelsWidth        As Long                   '幅(単位：ピクセル) 

    dmPelsHeight       As Long                   '高さ(単位：ピクセル) 

    dmDisplayFlags     As Long                   'ディスプレイモードを指定する定数 

    dmDisplayFrequency As Long                   'ディスプレイの動作周波数 

End Type



Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _

                                (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" _

                                (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As Long

Public Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" _

                (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal cbBuf As Long, pcbNeeded As Long) As Long

Public Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long



Public Const DMORIENT_PORTAIT = 1   '縦向き 

Public Const STANDARD_RIGHTS_REQUIRED = &HF0000

Public Const PRINTER_ACCESS_ADMINISTER = &H4

Public Const PRINTER_ACCESS_USE = &H8

Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

Public Const DM_PAPERSIZE = &H2             'dmPaperSize 

Public Const DM_PAPERLENGTH = &H4           'dmPaperLength 

Public Const DM_PAPERWIDTH = &H8            'dmPaperWidth 

'フォーム 

Private Sub Command1_Click()

    Dim PrinterName   As String

    Dim pd            As PRINTER_DEFAULTS

    Dim PrinterHandle As Long

    Dim Result        As Long

    Dim Needed        As Long

    Dim pi2_buffer()  As Long

    Dim pFullDevMode  As Long

    Dim MyDevMode     As DEVMODE

    

    PrinterName = Printer.DeviceName

    If PrinterName = "" Then Exit Sub

    

    Me.MousePointer = 11

    pd.pDatatype = vbNullString

    pd.pDevMode = 0&

    pd.DesiredAccess = PRINTER_ALL_ACCESS

    

    Result = OpenPrinter(PrinterName, PrinterHandle, pd)

    Result = GetPrinter(PrinterHandle, 2, ByVal 0&, 0, Needed)

    

    ReDim pi2_buffer((Needed \ 4))

    Result = GetPrinter(PrinterHandle, 2, pi2_buffer(0), Needed, Needed)

    pFullDevMode = pi2_buffer(7)

    

    Call CopyMemory(MyDevMode, ByVal pFullDevMode, Len(MyDevMode))

    With MyDevMode

        .dmOrientation = DMORIENT_PORTAIT   '縦向き 

        .dmPaperSize = 256

        .dmPaperLength = 4000

        .dmPaperWidth = 2500

        .dmFields = DM_PAPERSIZE Or DM_PAPERWIDTH Or DM_PAPERLENGTH

    End With

    Call CopyMemory(ByVal pFullDevMode, MyDevMode, Len(MyDevMode))

    

    Result = SetPrinter(PrinterHandle, 2, pi2_buffer(0), 0&)

    Call ClosePrinter(PrinterHandle)

    Me.MousePointer = 0

End Sub

'モジュール 

    Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _

            (ByVal PrinterName As String, ByRef hPrinter As IntPtr, ByVal pDefault As PRINTER_DEFAULTS) As Boolean

    Public Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" _

                (ByVal hPrinter As IntPtr, ByVal dwLevel As Integer, _

                        ByVal pPrinter As IntPtr, ByVal cbBuf As Integer, ByRef pcbNeeded As Integer) As Boolean

    Public Declare Sub CopyMemory1 Lib "KERNEL32" Alias "RtlMoveMemory" _

                                            (ByVal hpvDest As DEVMODE, ByVal hpvSource As IntPtr, ByVal cbCopy As Long)

    Public Declare Sub CopyMemory2 Lib "KERNEL32" Alias "RtlMoveMemory" _

                                            (ByVal hpvDest As IntPtr, ByVal hpvSource As DEVMODE, ByVal cbCopy As Long)

    Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As IntPtr, _

                    ByVal Level As Integer, ByRef pPrinter As PRINTER_INFO_2, ByVal Command_Renamed As Integer) As Boolean

    Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Boolean



    Public Structure PRINTER_DEFAULTS

        Public pDatatype As String

        Public pDevMode As Long

        Public DesiredAccess As Long

    End Structure



    Public Structure PRINTER_INFO_2

        Public pServerName As String

        Public pPrinterName As String

        Public pShareName As String

        Public pPortName As String

        Public pDriverName As String

        Public pComment As String

        Public pLocation As String

        Public pDevMode As IntPtr

        Public pSepFile As String

        Public pPrintProcessor As String

        Public pDatatype As String

        Public pParameters As String

        Public pSecurityDescriptor As IntPtr

        Public Attributes As System.UInt32

        Public Priority As System.UInt32

        Public DefaultPriority As System.UInt32

        Public StartTime As System.UInt32

        Public UntilTime As System.UInt32

        Public Status As System.UInt32

        Public cJobs As System.UInt32

        Public AveragePPM As System.UInt32

    End Structure



    Public Const CCHFORMNAME = 32

    Public Const CCHDEVICENAME = 32



    Public Structure DEVMODE

        <VBFixedString(CCHDEVICENAME)> Public dmDeviceName As String

        Public dmSpecVersion As Integer

        Public dmDriverVersion As Integer

        Public dmSize As Integer

        Public dmDriverExtra As Integer

        Public dmFields As Long

        Public dmOrientation As Integer

        Public dmPaperSize As Integer

        Public dmPaperLength As Integer

        Public dmPaperWidth As Integer

        Public dmScale As Integer

        Public dmCopies As Integer

        Public dmDefaultSource As Integer

        Public dmPrinterQuality As Integer

        Public dmColor As Integer

        Public dmDuplex As Integer

        Public dmYResolution As Integer

        Public dmTTOption As Integer

        Public dmCollate As Integer

        <VBFixedString(CCHFORMNAME)> Public dmFormname As String

        Public dmUnusedPadding As Integer

        Public dmBitsPerPel As Integer

        Public dmPelsWidth As Long

        Public dmPelsHeight As Long

        Public dmDisplayFlags As Long

        Public dmDisplayFrequency As Long

    End Structure



    Public Const DMORIENT_PORTAIT = 1

    Public Const STANDARD_RIGHTS_REQUIRED = &HF0000

    Public Const PRINTER_ACCESS_ADMINISTER = &H4

    Public Const PRINTER_ACCESS_USE = &H8

    Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

    Public Const DM_PAPERSIZE = &H2             'dmPaperSize 

    Public Const DM_PAPERLENGTH = &H4           'dmPaperLength 

    Public Const DM_PAPERWIDTH = &H8            'dmPaperWidth 

'フォーム 

Imports System.Runtime.InteropServices



Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PD As New System.Drawing.Printing.PrintDocument

        Dim PrinterName As String

        Dim PrnD As PRINTER_DEFAULTS

        Dim PrinterHandle As Long

        Dim Result As Long

        Dim Needed As Integer

        Dim pPrinterInfo As IntPtr = IntPtr.Zero 'Dim pi2_buffer() As Long 

        Dim PrinterInfo As PRINTER_INFO_2

        Dim pFullDevMode As Long

        Dim MyDevMode As DEVMODE = Nothing



        PrinterName = PD.PrinterSettings.PrinterName

        If PrinterName = "" Then Exit Sub



        PrnD.pDatatype = Nothing

        PrnD.pDevMode = 0&

        PrnD.DesiredAccess = PRINTER_ALL_ACCESS



        Call OpenPrinter(PrinterName, PrinterHandle, PrnD)

        Call GetPrinter(PrinterHandle, 2, IntPtr.Zero, 0, Needed)

        'メモリを割り当てる 

        pPrinterInfo = Marshal.AllocHGlobal(Needed)

        Call GetPrinter(PrinterHandle, 2, pPrinterInfo, Needed, Needed)

        PrinterInfo = CType(Marshal.PtrToStructure( _

                                            pPrinterInfo, GetType(PRINTER_INFO_2)), PRINTER_INFO_2)

        pFullDevMode = PrinterInfo.pDevMode

	'???　この辺りから？ 

        Call CopyMemory1(MyDevMode, pFullDevMode, Len(MyDevMode))

        With MyDevMode

            .dmOrientation = DMORIENT_PORTAIT '縦向き 

            .dmPaperSize = 256

            .dmPaperLength = 4000

            .dmPaperWidth = 2500

            .dmFields = DM_PAPERSIZE Or DM_PAPERWIDTH Or DM_PAPERLENGTH

        End With

        Call CopyMemory2(pFullDevMode, MyDevMode, Len(MyDevMode))



        Result = SetPrinter(PrinterHandle, 2, PrinterInfo, IntPtr.Zero)

	'??? /この辺りまで？ 

        Call ClosePrinter(PrinterHandle)

        Me.Cursor = Cursors.Default

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

End Class

SPAMかと思った。

> 上手くいきませんでした。

なにがどううまくいってないんですか？
ソース自体は問題ないようですけど。

どういう動作を期待して、どこでエラーになって、エラーはこういうもので、っていうのを出してください。

ＶＢ２００５／２００８／２０１０では、　．ＮＥＴの機能を使ったプログラムを書くことになるので、
ＡＰＩありきの考えは、捨ててください。
ＡＰＩでないと、出来ない部分が無いとは、言いませんが、
．ＮＥＴサポートが有る部分は、．ＮＥＴを使うようにしてください。
’
参照サイト
ＭＳＤＮの印刷関係
’
DOBON.NET > プログラミング道 > .NET Tips
　　　画像、印刷編メニュー
’
秀和：Visual Basic 2008逆引き大全555の極意 
秀和：Visual Basic 2008 逆引き大全 至高の技 データベース+印刷/帳票 編
位は、持っておいても良い本です。

貴重なご意見ありがとうございます。

 (--;さん、返信ありがとうございます。
VB6の方では実行後、コンパネからプリンタドライバをプロパティで確認すると変わっているのを確認できるのですが、VB2008の方はエラーは確かに起きませんが、設定が変わっていないので上手くいきませんと書かせてもらいました。

動作はVB6のように実行したら用紙名がユーザー定義になり、用紙サイズが横4000mm縦25000mmと入って縦向き設定になることです。


daiveさん、返信ありがとうございます。
>DOBON.NET > プログラミング道 > .NET Tips
は参考にさせてもらってますが、取得だけで設定の方法が見つけれませんでしたので・・・

「VB2005逆引き大全500の極意」なら所持しています。
ですが、コチラの本にはやりたい内容の設定はありませんでした。
内部だけで簡潔させたいので、プリンタのプロパティ画面のようなのを表示して画面上で変更・・・といったやり方はしない方向で実装したいと思っております。

.Net Frameworkでやる方法があればもちろんやりたいのですが、色々サイトめぐりはしておりますがどうにも解決出来ませんでしたので投稿させていただきました。

> Alias "OpenPrinterA"
VB6 当時とは異なり、VB.NET の場合、ANSI 系 API を固定的に呼び出すメリットはほぼありません。
通常は Auto 指定にするか、Unicode 版の API を利用するようにしましょう。
Declare Auto Function OpenPrinter Lib "winspool.drv" (ByVal ～～

以下、Auto 指定の宣言がされた場合という前提で回答します。


> Declare Function OpenPrinter
第 3 引数は、「PRINTER_DEFAULTS への参照」が求められています。
今回は、第 3 引数を ByVal にしているのですから、PRINTER_DEFAULTS を Structure で
宣言するのは誤りです。PRINTER_DEFAULTS を Class に変更してください。

なお、戻り値は As Boolean で構いませんが、この場合の推奨表現は
「As <MarshalAs(UnmanagedType.Bool)> Boolean」となります。
http://msdn.microsoft.com/ja-jp/library/ms182206.aspx


> Declare Function GetPrinter
第 3 引数は、「PRINTER_INFO_2 への参照」です。こちらは、OpenPrinter のような
間違いは無いようですね(ByRef + Structure または ByVal + Class であれば OK)。


> Alias "RtlMoveMemory"
Marshal.StructureToPtr メソッド / Marshal.PtrToStructure メソッドと RtlMoveMemory を
併用されているのは何故でしょうか。Marshal クラスだけで充分な気がします。


> Public Declare Sub CopyMemory1 Lib "KERNEL32" Alias "RtlMoveMemory"
> Public Declare Sub CopyMemory2 Lib "KERNEL32" Alias "RtlMoveMemory"
VB.NET ではオーバーロードが可能なため、それぞれに別名をつける必要はありません。


> Public Structure PRINTER_DEFAULTS
メンバーの型宣言が間違っています。32bit OS で動かす場合は、As Long にはなりません。
<MarshalAs(UnmanagedType.LPTStr)>String, IntPtr, Integer にするか、あるいは
IntPtr, IntPtr, Integer などにしておきましょう。
http://dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=all&namber=26997&space=0&type=0&no=0


> Public Structure PRINTER_INFO_2
PRINTER_INFO_2 は文字列の受け渡しを伴うため、クラス(もしくは構造体)に
以下の属性を付与して、CharSet を明示しましょう。PRINTER_DEFAULTS も同様です。
　<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>


> Public Const CCHFORMNAME = 32
> Public Const CCHDEVICENAME = 32
Const にも As を宣言しましょう。


> Public Structure DEVMODE
こちらも StructLayout をつけておいた方が良いでしょう。今回は共用体(union)を
使わないので、LayoutKind.Sequential で良さそうですね。


>    <VBFixedString(CCHDEVICENAME)> Public dmDeviceName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCHDEVICENAME)> を付与しましょう。
これは、dmFormname メンバーについても言える事です。

VBFixedString 属性は、Declare で呼び出すアンマネージ API に対しては役に立ちません。
この属性が意味を持つのは、一部のマネージ API に対してだけです(FilePut など)。

魔界の仮面弁士さん、ご意見+ご指摘ありがとうございます。

まだまだ勉強不足ゆえ、使い方を誤ったまま使用していた所が多々あるのですね。。。
それぞれを確認しつつ修正していきたいと思います。

.Net Frameworkが使えると、私のやりたい事は全て出来るのでしょうか？
せっかくの.Netへの移行なのでAPIより.Netを使いたいのは山々なのですが。。。
ご助言などいただけると幸いです。