タイトル : Formの結果をWordへ 投稿日 : 2008/01/28(Mon) 12:48 投稿者 : あんぱん
きちんとルールを読まず2個の掲示板に書き込んで しまったのは大変申し訳ありませんでした。 お忙しいところすみませんが、 本当によろしくお願いします。 下のがプログラムです。 実行するとFormに結果が出ますよね。 そのFormを印刷することができるのに、 Wordとかにコピーする方法がまったくわかりません。 実行結果ののったForm自体をWordにコピーしたいんです。 教えてください。 Option Explicit Private Sub Form_Load() Randomize End Sub Private Sub 印刷_Click() 印刷.Visible = False Form1.PrintForm 印刷.Visible = True End Sub Private Sub Form_Click() CurrentX = -115 CurrentY = 3 Print "0" CurrentX = -60 CurrentY = 3 Print "15" CurrentX = 0 CurrentY = 3 Print "20" CurrentX = 58 CurrentY = 3 Print "25" CurrentX = 115 CurrentY = 3 Print "30" CurrentX = -100 CurrentY = -65 Print "25℃に集まる" Static X As Long Static Y As Long Dim Z As Single Dim T25 As Single Dim i As Long DrawWidth = 3 Line (-120, 0)-(-90, 0), QBColor(2) Line (-90, 0)-(-30, 0), QBColor(10) Line (-30, 0)-(30, 0), QBColor(14) Line (30, 0)-(90, 0), QBColor(12) Line (90, 0)-(120, 0), QBColor(4) Do While i <= 10000 DrawWidth = 1 Z = Rnd T25 = 60 - X If X >= 0 Then If Z <= 0.25 Then If T25 >= 0 Then Line (X, Y)-(X + 1, Y), QBColor(0) X = X + 1 End If If T25 < 0 Then Line (X, Y)-(X - 1, Y), QBColor(0) X = X - 1 End If End If If Z > 0.25 And Z <= 0.5 Then If T25 < 0 Then Line (X, Y)-(X - 1, Y), QBColor(0) X = X - 1 End If If T25 >= 0 Then Line (X, Y)-(X + 1, Y), QBColor(0) X = X + 1 End If End If If Z > 0.5 And Z <= 0.75 Then Line (X, Y)-(X, Y + 1), QBColor(0) Y = Y + 1 End If If Z > 0.75 Then Line (X, Y)-(X, Y - 1), QBColor(0) Y = Y - 1 End If End If i = i + 1 Loop End Sub |