のっぽと申します。
プリンタ　用紙トレイを変更できるプログラムを作成中です。

Windows XP SP2
VB2005 Express Edition
プリンタ＝HPC5180


HPC5180 は　用紙トレイが２つあり、
Printing.PrinterSettings.PaperSources()を調べると下記の通りでした。
0=[PaperSource  自動選択 Kind=FormSource]
1=[PaperSource  メイントレイ Kind=Custom]
2=[PaperSource  フォトトレイ Kind=Custom]

[PaperSource  フォトトレイ Kind=Custom]に用紙トレイを変更し　A6や葉書サイズの用紙を印字するプログラムを作成中です。
このコードでは、メイントレイからフォトトレイに変更されません。
どのようにすれば　良いのでしょうか？

お手数かけますが、ご協力をよろしくお願いします。

    Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As   SYStem.EventArgs)  Handles cmdPrint.Click
      
        Dim I As Integer
        Dim Pset As New Printing.PrinterSettings
        Dim Psize As Printing.PaperSize
        　　　　
　　　　'フォトトレイを指定      
　　　 I =2    
        PrintDocument1.DefaultPageSettings.PaperSource = Pset.PaperSources(Ｉ)

        '用紙サイズ 方向を指定  
　　　　PrintDocument1.DefaultPageSettings.Landscape = False 　　　  
　　　　For Each Psize In Pset.PaperSizes
            If Psize.Kind = Printing.PaperKind.A6 Then
               PrintDocument.DefaultPageSettings.PaperSize = Psize
            End If
        Next
       PrintDocument1.Print()
    End Sub

のっぽさんと、同じＯＳ　プリンタを使っています
> Windows XP SP2
> VB2005 Express Edition
> プリンタ＝HPC5180

>         Dim Pset As New Printing.PrinterSettings
>         Dim Psize As Printing.PaperSize
>         　　　  
> 　　　　For Each Psize In Pset.PaperSizes
>             If Psize.Kind = Printing.PaperKind.A6 Then
>                PrintDocument.DefaultPageSettings.PaperSize = Psize
>             End If
>         Next
>    

-----------------------------------------------------------------
●用紙サイズの確認
＞ Printing.PrinterSettings.PaperSources()を調べると下記の通りでした。
Printing.PrinterSettings.PaperSourcesではなくて、Printing.PrinterSettings.PaperName に変更すれば、使用できる用紙サイズがわかります

●For文の変更        
PSise.PaperKind を　PSize.PaperName にする。        

        For Each PSize In PSet.PaperSizes
            If PSize.PaperName = "フチ無しはがき 100x148mm" Then
                prdPrint.DefaultPageSettings.PaperSize = PSize
            End If
        Next

>  　　　 I =2    
>         PrintDocument1.DefaultPageSettings.PaperSource = Pset.PaperSources(Ｉ)

   PrintDocument1.DefaultPageSettings.PaperSource = PrintDocument1.PrinterSettings.PaperSources.Item(2)

でもだめでしょうか？

Pset.PaperSources(Ｉ) には何も設定されていませんよね。

因みに、　この Ｉ は全角ですか？ 実際に使っているコードをペーストしたものですか？

●てるてるさん
有難うございました。
てるてるさんのコードで　葉書サイズが印刷できました。
助かりました。

●花ちゃんさん
>    PrintDocument1.DefaultPageSettings.PaperSource = PrintDocument1.PrinterSettings.PaperSources.Item(2)
>
> でもだめでしょうか？
はい　これのコードでも印刷できました

> Pset.PaperSources(Ｉ) には何も設定されていませんよね。
これについては　私も良くわかりません。　もうしわけございません。

> 因みに、　この Ｉ は全角ですか？ 実際に使っているコードをペーストしたものですか？
半角で　コピペしたものです。

いろいろ　アドバイスと頂き有難うございました。
これからもよろしくお願いします