フォントサイズを大きくした時に文字が画面からはみ出さない
ように一行表示文字数を減らしてくれて、
小さくした時には逆に増やしてくれるマクロってありますか。

えっと、QX の画面表示のフォントサイズはポイント数とかじゃなく、ドット数
なので、たとえば表示行１行の総ドット数が一定になるように、フォントサイズ
と文字数を調節すればいいんじゃないでしょうか。すなわち、こんな感じ。１つ
めはフォントサイズを大きくすると同時に１行文字数を減らし、２つめはその反
対です。フォントによっては２ドットずつ増やすのがうまくいかないかも。

'フォントサイズ変化にあわせて表示桁数を調節

proc larger
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize + 2
@Width = n / (@FontSize + @CharPitch)
end proc

proc smaller
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize - 2
@Width = n / (@FontSize + @CharPitch)
end proc

イイ！
イイ感じです。
早速ツールバーに登録しました。
コレ便利ですよ。
即席でこれだけのものがつくれるとは。
感謝。

だいたいご希望の動作になってるようで、よかったです。

「これだけのもの」なんて、正味３行のマクロをそんなにほめられる
と困っちゃいますが。

自分の場合
@Width = (n-8) / (@FontSize + @CharPitch)
@Width = (n+20) / (@FontSize + @CharPitch)
ぐらいに微調整すると上手くいくみたいです。
人によって違うかもしれませんが。

桁がずれてきた時のために、かぶねこさんのマクロを参考にして
こんなんつくってみました。マクロ（もどき）初体験。

'桁数調節

proc plus
@Width=@Width+1
end proc

proc minus
@Width=@Width-1
end proc

ぱちぱち。

最初の一歩、おめでとうございます。あとは行数が増えるだけですね。「こんな
ことができると便利」と思うごとに「マクロでできないかな」とやってみてるう
ちに、たぶんしょっちゅうマクロを書くようになっちゃってます。(^_^)v

なるほど〜。

もし表示画面が一定なら、n とかじゃなく、決まった数値にしてしまうっていう
手もあります。最初に手作業でその数値を計算しなければいけませんが。決まっ
た数値にしておくと、割り算のあまりが原因の幅のずれがなくなるはずです。

proc larger
@FontSize = @FontSize + 2
@Width = 960 / (@FontSize + @CharPitch) '数値は表示１行ドット数
end proc

といったふうになります。ドット数は

proc main
print (@FontSize + @CharPitch) * @Width
end proc

というマクロを実行すると、ステータスバーに数値が表示されます。

フォントサイズを変更した後で サンプルマクロの QWIDTH.MAC にジャンプ
するっていうのはどうでしょうか？
ただ @ScreenWidth を使用すると楽かなあと思っただけなんですが。。。

@ScreenWidth というのがあったんですね。これは行番号表示部分も含んだ幅で
はあるけど、これを使えば文字数で掛け算なんかしなくてもいいですね。すっか
り失念してました。ご指摘ありがとうございます。QWIDTH.MAC のその部分を組
み込むと、

proc larger
dim width
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
@FontSize = @FontSize + 2
@Width = width
end proc

とかになりますね。（数値指定もいらないし、誤差も出ません。）

ついでに、マクロの１行目のお約束、

if @hwnd = 0 then exit proc

を書かなかったことにも気づきましたが、使う人が目的がわかっている場合なの
で、まいっか〜。（これがないと、文書ウィンドウがひとつもないときにエラー
メッセージが出ます ＞ pavlov さん。