’PaperSize’プロパティは1ページ内では設定できません。

Function Printing()As Boolean
Dim DeF As Printer

Set DeF = Printer
DeF.PaperSize = vbPRPSA4

ここでタイトルのエラーメッセージが表示される。
必ず出る訳ではない。
連続でこのファンクションをコールしていると、
どこかのタイミングで発生する。

予想としては
Set DeF = Printer
この時に、すでに
DeF.PaperSize が登録されている為かと考えられる。
そこで
Set DeF = Printer の直後に
DeF.KillDoc
を入れてみました。

対処療法としては正解だったようでエラーが出なくなりました。

Windows版 PostgreSQL を導入してみた

Fedora上でPostgreSQLを運用しているが、非常時用にWindows上でも動くようにしておこうと考えた。

最新版は11であったが、10を選んでみた。
インストールが終わり、接続設定も終わって、無事にプログラムから接続もできました。
ただし、今まで使っていたpgAdmin3が使えなかった。9.6までのサポートらしい。残念。
附属のpgAdmin4ではどういうわけか繋がらない。
おまけに、プログラムからもエラーが出てしまった。
なんだかなぁ~

仕方がないので、アンインストールして、9.6をインストールする事にした。
結果、無事に使えるようになったし、エラーもでなくなりました。

バックアップとして使えるマシンが欲しくなりました。
ノートかなぁ・・・

オートメーションエラー

VB6 からExcel を操作しているが、オートメーションエラーになってしまう。

こことか、
https://social.msdn.microsoft.com/Forums/ja-JP/1522c74b-17e7-402d-8a87-2d1a6af1feab/excel?forum=vbajp

ここが良さそうかも。
https://www.papy.in/bbs/vb1/200311/03110040.html

ちょっと古いバックアップに戻したら、エラーがでない。
なんででしょうか。
いろいろインストールしていて、クリーンにしたいと思って、
Windows をクリーンインストールしてみたのですが、何が違うのか、Pro でも Home でもダメでした。

仕方がないので、古い状態のまま使うことにしました。
気分的には許せないのですが・・・

ペイン クリニック

ブロック注射を腰に行なったのだが、そのあと足に力が入らなくなり、焦ってしまった。4時間ほど寝転がっていると復活したが、本当に焦った。

GPT の件

ちょっと調べたら、BIOS を変更するといいような記述があった。
まぁ。弄ってみました。
結果。インストールできました。

BIOS の何が効いたのかよく分からん。

Windows 10 Home をクリーンインストール

「このディスクにWindowsをインストールすることはできません。選択されたディスクはGPTのパーティションの形式ではありません。」というエラーでインストールできない。
Pro をクリーンインストールした時は、何の問題もなくインストールできただけに不思議でしかたがない。

何が違うというのか?
Acronis のツールで GPT で初期化したりしたが、やはりだめでした。

ちょっと、調べてみます。

何度も。Windows10 に VB6 をインストールする

Windows 10 home 変更。

Pro にしてから、クライアントマシンでエラーが出るようになった。理由が解らない。
悩んだすえに、Home に戻す事にしました。

OS を インストールして、直後に VB6 をインストール。
いつものように 2回 廻す。
この時点では アドインマネージャの内容は日本語。
SP6 及び 追加のアップデートを実行。
まだ  アドインマネージャの内容は日本語。
MSCOMCTL.OCX をSysWOW64 にコピー。
管理者で regsvr32 を実行。
他に必要な OCX 等もコピー。
これで終わりかしら・・・

Excel を操作するので、Office2016 をインストール。

互換性の設定と、管理者での起動を設定する。
VB6 を起動。
多分、この瞬間 アドインマネージャの内容が # と数字に
変化する。
多分、Office の所為?

摂り合えず、クライアントソフトマシンでのエラーはなくなった。
Home にしたことが効いたのかしら・・・

しかし、別の問題が出てきた・・・
いい加減にしてほしい。

もう9月

とうとう今年は渓流釣りに行けなかったなぁ・・・
9月で禁漁だし、決定だね。