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と関連する良く見られている質問

QAUTOCADをPDF変換して印刷したいのですが

AUTOCADをPDFに変換して印刷たいのですが
PDFでPC上ちゃんと見える線が印刷するとその線だけ消えています。
ワイプアウトで一部隠れてるのが原因かと思ったのですが
ちゃんと出てる図面もあります。

PDFをどうにかして印刷できないでしょうか?

AUTOCAD2010でDWG to PDFでPDF変換してます。
Adobe® Acrobat® 8 Standard を使ってます。

よろしくおねがいします。

Aベストアンサー

AutoCAD2010より低いバージョンでの話になるので参考までに。

新規作成した時に最初にできる「0」というレイヤーは印刷のときに不具合をおこす場合があるようです。
(印刷時に印刷されない等)

一度「0」のレイヤー内のオブジェクトを新たに作ったレイヤーに移して見てください!

また、Adobe Acrobatがインストールされている場合は
DWG to PDFではなく、「印刷→Adobe PDF→ファイルへ出力にチェック」を試してください!こちらの方が線がきれいにでると思います。

以上。
健闘を祈ります!!

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

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

Qillustrator10、印刷可能範囲だけPDFに変換できますか?

よろしくお願いします。

友達にweb上でチラシを見てもらおうとしてます。

pdfに変換してweb上にアップして、友達の自宅PCにて確認してもらおうとしてますが、
PDF変換すると、画像がある範囲すべてがPDF変換されてしまいます。

プリンタで印刷できる範囲のみだけにしたいのですが、イラレで表示されている印刷可能範囲の点線の内側のみをPDF変換することは可能でしょうか?

Aベストアンサー

色々やり方はあると思いますが、私なら・・・。

1)まず、元データを「複製を保存」か「別名で保存」で保存しておきます。

2)で、すべてのレイヤーを1つにまとめて、印刷範囲の白ベタを作って【最前面】に配置します。

3)そのまま、すべてを選択して「メニューバー→オブジェクト→クリッピングマスク」を実行します。

4)これで印刷範囲のデータ出来上がり。

5)「別名で保存」か「データの書き出し」でPDFデータを作って終わり。

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

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

Aベストアンサー

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

Qコンビニword印刷、PDF変換でok

コンビニでusbに保存したwordをPDFにへんかんすればどこのコンビニからでも印刷できますでしょうか?

パソコンは今ネット環境がありません
なのでusbを使い、印刷するしか方法が無く印刷したいものが3枚ほどなので漫画喫茶は高くなるし困っています。
詳しい方教えてください
ちなみにPDF変換をしないとwordはどこのコンビニも印刷不可ということでしょうか?

Aベストアンサー

PDFであれば、多くのコンビニで備えているマルチコピー機を使って印刷できます。
Windowsのエクスプローラーのようにフォルダーが表示されるので、
フォルダー内のファイル(PDF)選択も簡単です。
wordの印刷機能はありません。

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

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

具体的には

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

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

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

Aベストアンサー

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

Qイラストレータ→PDF変換で、必要な部分だけ印刷したい

イラストレータCSで作成したものを、
イラストレータがインストールされてないパソコンから印刷したいため、
PDFファイルに変換して印刷しようと思っています。
しかし設定用紙サイズの枠外まで絵を描いてしまったので
PDFファイルにするとその印刷部分外まで一緒に保存されてしまい、
希望の用紙サイズとは全く違うサイズになっていまいます。

トンボなどは設定できるようですが、画像サイズの設定をして
そこだけPDF保存、ということは出来るのでしょうか?
若しくは印刷段階で「真ん中のここだけ印刷」みたいなことは出来るのでしょうか?
スライスを使用したりして多少の悪あがきはしてみましたが…
これが限界のようです。
何か良い知恵があれば是非是非ご教授のほどお願いいたします。

また、PDFファイルに変換すると絵全体が白っぽくなるのですが…
これの回避の仕方などはあるのでしょうか?
過去の質問を見たのですがMacでの質問しか見つけられなかったので、
これも一緒に質問させていただきます。

因みにパソコンはWin2000(イラレ搭載)とWinXP(印刷用)、
使用してるのはAcrobat Reader 5.0になります。
他足りない情報があればご指摘くださればすぐに補足させて頂きます。
どうぞよろしくお願いいたします。

イラストレータCSで作成したものを、
イラストレータがインストールされてないパソコンから印刷したいため、
PDFファイルに変換して印刷しようと思っています。
しかし設定用紙サイズの枠外まで絵を描いてしまったので
PDFファイルにするとその印刷部分外まで一緒に保存されてしまい、
希望の用紙サイズとは全く違うサイズになっていまいます。

トンボなどは設定できるようですが、画像サイズの設定をして
そこだけPDF保存、ということは出来るのでしょうか?
若しくは印刷段階で「真ん中のここだけ印刷...続きを読む

Aベストアンサー

「書類サイズ」が大きいのではないでしょうか。それを用紙サイズと同じにしてからpdfで保存すればその範囲のものしかできないと思います。
当方CSは使っていませんが同様では?違っていたらゴメンナサイ。

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...続きを読む

Qエクセルファイルを印刷のところからPDFに変換

こんにちは。
会社で私が使ってるパソコンだけが、ファイルメニューの印刷を選んで、出てきた印刷ウインドウの中にプリンターの名前と一緒にAdobe PDF とあるので、それを選択すると簡単にPDFファイルに変換出来ます。
これは他のパソコンには入っていないようです。他の人が同じようにしてくれと言ってきますが、私もどうしてこうなっているのか記憶にありません。何かのプラグインが入っているのでしょうか?

ウインドウズXP で オフィス2000です。

よろしくお願いします。

Aベストアンサー

Adobe Acrobat が導入されていると考えるのが普通でしょう。
http://www.kit-systems.co.jp/webkcore/maketemplate9/maketemplate9-2.htm

http://dopub.jp/aboutpdf.php
でそう表示されています。

ちなみに「CubePDF」ではAdobe PDFとは表示されず、CubePDFと表示されます。
http://www.atmarkit.co.jp/fwin2k/win2ktips/1331cubepdf/cubepdf.html

QEXCEL2000のマクロ

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

Aベストアンサー

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

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


人気Q&Aランキング