[リストへもどる]
一括表示

投稿時間:2002/12/29(Sun) 10:53
投稿者名:kazu
URL :
タイトル:
指定位置に印刷するには…
初心者ですので宜しくお願いします。
プリンターによって印刷開始位置が違いますが、どのプリンターでも
指定位置に印刷する方法はありますか?

例えば私のプリンターの場合は、オフセット?がX=3,Y=3 mm
ありますので……、

    Private Sub locate(myObj As Object, X As Long, Y As Long, myStr As String)
      Set myObj = Printer
            With myObj
             .ScaleMode = 6
             .CurrentX = X - 3
             .CurrentY = Y - 3
      End With
      myObj.Print myStr
      
End Sub
としています。自分のプリンターでは思った位置に印刷できますが、
他のプリンターではずれてしまいます。

何か、方法が、ありましたら宜しくお願いします。

投稿時間:2002/12/29(Sun) 13:44
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 指定位置に印刷するには…
No.1560 の投稿やここのHP(左のフレームのメニュー)の印刷関係の
[プリンターの印刷余白及び用紙サイズを取得]ではだめですか?
 

投稿時間:2002/12/30(Mon) 17:28
投稿者名:kazu
URL :
タイトル:
Re^2: 指定位置に印刷するには…
> No.1560 の投稿やここのHP(左のフレームのメニュー)の印刷関係の
> [プリンターの印刷余白及び用紙サイズを取得]ではだめですか?

すみません。ありがとうございました。解決しました。

外部ファイルから印刷位置、FontSize等を呼び込んで印刷しているのですが、
ポインタかな…? が若干弱いのでしょうか?一度試し印刷をしないと
Fontが指示通りに印刷されません。2度目からは指示通りに印刷されます。

投稿時間:2002/12/30(Mon) 21:43
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: 指定位置に印刷するには…
> ポインタかな…? が若干弱いのでしょうか?一度試し印刷をしないと
> Fontが指示通りに印刷されません。2度目からは指示通りに印刷されます。

エラー状況からVB5.0 かと思うのですが、
Visual Basic 5.0 における印刷関連の制限事項および注意点 に該当するかと思います。

詳しくは http://support.microsoft.com/default.aspx?scid=kb;ja;JP411269 を見て下さい。
その他印刷関係は色々問題があるようです(VB6.0でも)MSDNで 印刷 で検索して見て下さい。