Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3120 / 9994

←次へ　｜　前へ→


	【10136】Re:プリンタの設定について教えてください

VBWASURETA - 08/1/11(金) 9:57 -


	引用なし

	パスワード

▼たけさん：

サンプルで１点訂正です。

>sub 印刷_Click()
>　　　　Const strOutPrinter = "FUJITSU VSP4901" '変更プリンタ
>　　　　Dim strDefaultPrinter As String
>　　　　
>　　　　'現在の通常使うプリンタ名を列挙
>　　　　If GetDefaultPrinter("", "", strDefaultPrinter) = False Then
>　　　　　　　　MsgBox "通常使うプリンタが見つかりませんでした"
>　　　　　　　　Exit Sub
>　　　　End If
>
>　　　　If (MsgBox(印刷を開始しますか？", vbYesNo) = vbYes) Then
>
>　　　　　　　　'指定のプリンタに変更
>　　　　　　　　If (FncPrintOut( strOutPrinter ) = False) Then
>　　　　　　　　　　　　MsgBox strOutPrinter & "：通常使うプリンタが見つかりませんでした"
>　　　　　　　　　　　　Exit Sub
>　　　　　　　　End If
>
>　　　　　　　　'// ここに印刷処理のコードを追加してください
>
>　　　　　　　　'元のプリンタに通常使うプリンタとして戻す
>　　　　　　　　If (FncPrintOut( strDefaultPrinter ) = False) Then
>　　　　　　　　　　　　MsgBox strDefaultPrinter & "：通常使うプリンタが見つかりませんでした"
>　　　　　　　　　　　　Exit Sub
>　　　　　　　　End If
>　　　　End If
>End Sub

この関数の

>　　　　If (MsgBox(印刷を開始しますか？", vbYesNo) = vbYes) Then

が

　　　　If (MsgBox("印刷を開始しますか？", vbYesNo) = vbYes) Then

でした。
後、質問も内容がわからないと書かれますと回答側も何を質問しているの？
になりますので、やりたい動作、試した内容で何がわからないのかを
明確に書いた方がいいです。

丸投げして、回答してもらってもこの処理は何をしてるの？
どこをどうやって修正して自分で作成したソースのどのメソッドに
実装すればいいの？とかになりますよね？

自分自身が理解してないと、毎回同じ質問を繰り返したり、
何を質問したらいいのかわからなくなったりしますからね。

プログラミングを勉強するならデバックの方法から覚えると
理解しやすいかと思います。（自分自身の解釈で理解できますから）

1,072 hits

▼

【10126】プリンタの設定について教えてください たけ 08/1/9(水) 16:17