Private Sub List1_DblClick()


    Dim objPrinter As Printer
    
    strMyPrinter = List1.List(List1.ListIndex)
    For Each objPrinter In Printers
        If objPrinter.DeviceName = strMyPrinter Then

        Set Printer = objPrinter
        Form9.PrintForm
        Printer.EndDoc
        End If
    Next
    
End Sub
と指定するプリンターで印刷のコード花ちゃんさんの
サイトで参考したのですが、これにプラスで。枚数とサイズをtextboxで
入力して実行したのですが、Printer.PaperSize = vbPRPS○○　　
やPrinter.Copies = ○をどこの位置にいれればいいのですか？

>印刷のコード花ちゃんさんのサイトで参考したのですが
ここの[画像ファイルを印刷する]等も見ましたか？

自分で手動で印刷する時は、どのタイミングでページ設定をしているのですか？
印刷の命令をしてから用紙サイズの設定や印刷枚数の設定をしているのですか？

印刷の命令を出す前に用紙サイズの設定や印刷枚数の設定をしたいのです。
form1のコマンド１でform2を開きそのform2のリストに利用なプリンター
をリストにあげてある状態にし、text1に枚数の数を入力しtext2サイズを入力
してから印刷の指令を出したいと思っています。
枚数とサイズを
Private Sub Command2_Click()
Dim objPrinter As Printer
    
    strMyPrinter = List1.List(List1.ListIndex)  
    For Each objPrinter In Printers
        If objPrinter.DeviceName = strMyPrinter Then

            Set Printer = objPrinter                
　　　　　　Form3.PrintForm
            Printer.EndDoc
        End If
    Next
End Sub
のどこにコードを入れればいいのですか？

>どこにコードを入れればいいのですか？
とありますが
>印刷の命令を出す前
と自分で答えを出していますね。
さて、印刷の命令はどこでしているのでしょう？
自分の書いたコードだから分かりますよね。

>     strMyPrinter = List1.List(List1.ListIndex)  
>     For Each objPrinter In Printers
>         If objPrinter.DeviceName = strMyPrinter Then
>             Set Printer = objPrinter                
           --------------------------------------------
           'ここに記述
           --------------------------------------------
> 　　　　　　Form3.PrintForm
>             Printer.EndDoc
>         End If
>     Next

ありごとうございます。もうひとつ質問です＞＜
Printer.PaperSize = vbPRPSA4がサイズ指定のコードですが
このサイズ指定をtext1に「A4」「B5」などと
入力してサイズを指定したいのですか
どのようにすればいいのですか？

> ありごとうございます。もうひとつ質問です＞＜
> Printer.PaperSize = vbPRPSA4がサイズ指定のコードですが
> このサイズ指定をtext1に「A4」「B5」などと
> 入力してサイズを指定したいのですか
> どのようにすればいいのですか？
入力された内容に対してIf文なりSelect Caseなりで分岐すればいいのでは？

ありごとうございます。解決できました。