LOTUS2000でマクロ(用紙設定及び印刷範囲の設定)命令文を教えて下さい

このQ&Aに関連する最新のQ&A

A 回答 (2件)

私も、1-2-3 2000についてはあまり詳しいわけじゃないんですが、ヘルプによれば


********
Printer-Setup-Papersize
文字列
プリンタの [プロパティ] ダイアログボックスの [用紙サイズ] リストの用紙サイズ
********
とあるので、用紙サイズの設定値はプリンタによって異なるようです。
(ヘルプの[マクロ]-[情報要素]-[概要:情報要素]以下を参照してください。)

設定する文字列は、用紙設定を手動で設定してから、
@INFO("Printer-Setup-Papersize")
で取得することが出来ます。

私のHPのプリンタの場合ですと、
{SET "Printer-Setup-Papersize", "A4 (210 x 297 mm)"}
っていうのが設定値になるかと思います。

…で、試してみたんですが、私の環境だとどうもエラーが出てしまうようです。
その直前に記述した
{SET "Printer-Setup-Name","HP DeskJet 955C Series"}
って一文は正常に動作するようですし、"A4 (210 x 297 mm)"って部分も、@INFOで取得した文字列をそのままコピーしたので、間違ってるとも思えないんですが…。

試しに、プリンタをMicrosoft FAXにして同様の操作をしてみましたが、そちらもエラーでした。
うーん。

仕方が無いので、代わりに
{SET "Printer-Setup-Paperwidth", 210}
{SET "Printer-Setup-Paperlength", 297}
として対処したところ、正しく動作しました。
    • good
    • 0

{SET}命令を使います。


印刷範囲であれば
{SET "Print-Range",A1..N10}
です。

この回答への補足

早々の回答をありがとうございます。
Z80、8058、386など少し使用していました、 123R2,4Jから
2000へ移行したくて質問しますた。
/WGDPWねおLS7QQQ→{SET 識別文字列;設定値}で困っていました、識別はA4、A3?、値は29.7*21、?でしょうか ・・尚プログラム
マニアルの様な辞書タイプのガイドが有りましたら 併せて、ご回答をいただけます様におねがいします。

補足日時:2001/04/30 18:11
    • good
    • 0
この回答へのお礼

度々手間をお掛けし申しわけ有りません。
早速テストしたと思います、間だ入り口なので此から先、山、壁幾つ出てくるか?
解りませんが、その時は宜しくお願いします。
尚結果は何かで表示します。
ありがとう 御座いました。。
 

お礼日時:2001/05/01 23:08

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q▼マクロ印刷設定について▲

下記のプログラムはコマンドボタンを押すと
フォームが表示され、氏名を選択すると
印刷しますかと表示されOKを押すと
印刷がかかるようになっているのですが…

このプログラムを印刷設定ができるようにしたり、
印刷枚数を指定できるようなプログラムに変えるには
どうしたら良いでしょうか…;;

アドバイスなど宜しくお願い致します…。

'↓ここから―――――――
Private Sub CommandButton1_Click()
Cells(2, 17) = 名簿.Value

yesno = MsgBox("印刷しますか?", vbYesNo + vbQuestion + vbDefaultButton1 + vbSystemModal, "印刷しますか?")
If yesno = vbYes Then
ActiveWindow.SelectedSheets.PrintOut copies:=1
End If
Unload Userform1
End Sub

Private Sub UserForm_lnitialize()
For i = 1 To 15 'lが0から7まで(2行-2から9行-2まで)

名簿.Addltem Worksheets("データ").Cells(i + 1, 1).Value '名簿という別のシート
Next
End Sub
Private Sub 名簿_Change()
End Sub

'↑ここまでです――――――

下記のプログラムはコマンドボタンを押すと
フォームが表示され、氏名を選択すると
印刷しますかと表示されOKを押すと
印刷がかかるようになっているのですが…

このプログラムを印刷設定ができるようにしたり、
印刷枚数を指定できるようなプログラムに変えるには
どうしたら良いでしょうか…;;

アドバイスなど宜しくお願い致します…。

'↓ここから―――――――
Private Sub CommandButton1_Click()
Cells(2, 17) = 名簿.Value

yesno = MsgBox("印刷しますか?", vbYesNo + vbQuestion + vbDefaultBut...続きを読む

Aベストアンサー

一見すると長いコードのように見えますが、
直接印刷指示を飛ばしているのはこの行だけです。

> ActiveWindow.SelectedSheets.PrintOut copies:=1


ここを「印刷設定ダイアログを表示する」マクロに書き換えることで、
全自動マクロから半自動マクロに変更することができると思います。

Application.Dialogs(xlDialogPrint).Show

に書き換えてみてください。

QXPでのAccessの用紙サイズ設定について

AccessからA4レポートとA5レポートを出力させようとしています。
Windows2000上からは、用紙サイズのプロパティを変更すればできることはわかっているのですが、XP上からはどのようにすればいいのかわかりません。
どなたかご存知の方がおられましたら、よろしくお願い致します。

Aベストアンサー

>A5レポートを出力させようとしています
レポートサイズはプリンタに依存させてレポートを作成するのではダメなのでしょうか?
レポートを作りプレビューで表示しページ設定でページタブのその他のプリンタを選択しプリンタのプロパティを開きA5サイズを設定すればレポート自体A5サイズになるはずですが。
その他のプリンタでプリンタとサイズを指定しプリンタに依存すればそのレポートは指定したサイズで出力されます。

Q秀丸マクロで、あらかじめ選択した範囲にのみ処理を適用するには

秀丸マクロで、あらかじめ選択した範囲にのみ処理を適用するには
どのように書けばよいのでしょうか?

具体的には

replaceall "あああ" , "いいい";

のような置換処理を、
現在開いているファイルの選択範囲にのみ適用したいと考えています。

意味不明でしたら加筆修正しますのでよろしくお願いします。

Aベストアンサー

置換処理の最後のパラメータに「,inselect」を追加すれば良いハズです。

Qfor next文、do while文、if文をまとめる方法

A10からA12が空白であれば、ランダムにセルを選択して、
それぞれのセルにa,b,cを入力するコードを作りました。
しかし、3つのセルに条件を指定しただけで、とてもコードが長くなってしまいます。
もっと短くまとめる方法は無いのでしょうか。
宜しくお願いします。

Sub test()
Dim d As Integer, e As Integer, f As Integer, i As Integer

Randomize
For i = 10 To 12
Do While Cells(i, 1).Value = ""
d = Int((12 - 10 + 1) * Rnd + 10)
If Cells(d, 1) = "" Then
Cells(d, 1) = "a"
Exit For
End If
Loop
Next

For i = 10 To 12
Do While Cells(i, 1).Value = ""
e = Int((12 - 10 + 1) * Rnd + 10)
If Cells(e, 1) = "" Then
Cells(e, 1) = "b"
Exit For
End If
Loop
Next

For i = 10 To 12
Do While Cells(i, 1).Value = ""
f = Int((12 - 10 + 1) * Rnd + 10)
If Cells(f, 1) = "" Then
Cells(f, 1) = "c"
Exit For
End If
Loop
Next
End Sub

A10からA12が空白であれば、ランダムにセルを選択して、
それぞれのセルにa,b,cを入力するコードを作りました。
しかし、3つのセルに条件を指定しただけで、とてもコードが長くなってしまいます。
もっと短くまとめる方法は無いのでしょうか。
宜しくお願いします。

Sub test()
Dim d As Integer, e As Integer, f As Integer, i As Integer

Randomize
For i = 10 To 12
Do While Cells(i, 1).Value = ""
d = Int((12 - 10 + 1) * Rnd + 10)
If Cells(d...続きを読む

Aベストアンサー

以下のようにしてください。
Sub set_char が共通関数になっています。
------------------------------------
Sub test()
set_char ("a")
set_char ("b")
set_char ("c")
End Sub

Sub set_char(char As String)
Dim e As Integer, i As Integer
Randomize
For i = 10 To 12
Do While Cells(i, 1).Value = ""
e = Int((12 - 10 + 1) * Rnd + 10)
If Cells(e, 1) = "" Then
Cells(e, 1) = char
Exit For
End If
Loop
Next
End Sub
--------------------------------

以下のようにしてください。
Sub set_char が共通関数になっています。
------------------------------------
Sub test()
set_char ("a")
set_char ("b")
set_char ("c")
End Sub

Sub set_char(char As String)
Dim e As Integer, i As Integer
Randomize
For i = 10 To 12
Do While Cells(i, 1).Value = ""
e = Int((12 - 10 + 1) * Rnd + 10)
If Cells(e, 1) = "" Then
Cells(e, 1) = char
Exit For
End If
Loop
Next
End Sub...続きを読む

QEXCEL2000のマクロ

Excel2000のマクロで、ブックを開いたときに、
日付をセルに表示したいのですが、
ブックを開いたときのイベントがあれば教えてください。
(VBのForm_Loadみたいな)
日付をセルに表示するコマンドも知りたいです。
わかる方、よろしくお願いします。

Aベストアンサー

このHPはとても親切ですよ。

参考URL:http://www.asahi-net.or.jp/~zn3y-ngi/YNxv91.html


人気Q&Aランキング

おすすめ情報