ghost305jpのプロフィール
- ベストアンサー数
- 7
- ベストアンサー率
- 30%
- お礼率
- 92%
- 登録日2010/03/21
- Visual Basicでpdf 印刷
Visual Studio Express 2012 for Windows Desktop を試しています。 やりたい事は、pdf出力です。 基ネタがあって変換するというモノではなく、 DBか何かからデータを取得し、 そのデータを予め決めた罫線枠に収めて、 A4横などのスタイルでpdf出力するというものです。 下記はイメージです。 ┏━━━━┳━━━━┳━━━━┳━━━━┓ ┃ 名字 ┃ 名前 ┃郵便番号┃都道府県┃ ┣━━━━╋━━━━╋━━━━╋━━━━┫ ┃名字A ┃名前A ┃123-4567┃北海道 ┃ ┠────╂────╂────╂────┨ ┃名字B ┃名前B ┃123-4567┃青森県 ┃ ┠────╂────╂────╂────┨ ┃名字C ┃名前C ┃123-4567┃沖縄県 ┃ ┠────╂────╂────╂────┨ ┃名字D ┃名前D ┃123-4567┃和歌山県┃ ┗━━━━┻━━━━┻━━━━┻━━━━┛ ページ 1 有料のツールやアドオンなく、実現する事はできますか? サンプルコードなどがあれば紹介頂きたいです。
- ベストアンサー
- Visual Basic
- webuser
- 回答数2
- 同棲中の彼女と別れるべきか迷っています
現在同棲して1年になる彼女がいます。 彼女はいわゆるバンギャと呼ばれる、V系バンドのおっかけで、ライブがあるたびに日本各地を行脚しています。 それ自体はまだ(快くはないですが)目をつぶれるとしても、執着心が尋常じゃなく、最近冷めてきました。 些細なことばかりですが、 たとえば私が先に仕事が終わって家に帰り、夕食を一緒に食べようと待っていると、電話片手に帰宅しそっちのけでバンドのことで友人と長々と電話しています。配慮は皆無かと半ばあきれて一人夕食を食べると、「どうして勝手に一人で食べてるんだ」と逆切れする始末なんてことがよくあります。 二人で休みを取って温泉旅行に行ったときですが、その日にどうも好きなバンドのライブがあったらしく、それがとてもいいライブだったという情報を知って号泣しはじめたこともありました。(せっかく前から楽しみにして計画した旅行の真っ最中にです) そういった非常識が最近目に余るようになり、今後どうしようか悩んでいます。 本人はおそらく、バンドに対して私が嫉妬しているとしか思っていないようです。(説明するのですが聞く耳を持ちません) 結婚を考慮した時、家庭に入ってもおそらく優先順位はバンドのおっかけが最上位となりそうです。 (私の誕生日の場合でも、当然バンドのライブが優先されました。) なかなか周りに相談できずに悩んでいます。どうかお力を!
- 彼の気持ち
彼の気持ちがわかりません。 私にはもう少しで5ヶ月になる彼がいます。 ※前にも同じ時期に5ヶ月付き合ってました。 一ヶ月事に喧嘩をし、一昨日喧嘩して仲直りしたんですけど、 いつもなら喧嘩した後も「おはよー!」 とか、返事がすぐに返ってきていたのに 一昨日の喧嘩を境におはようメールもこないし、返事は何時間たってもきません。 昨日の夜に返信して、いつもなら絶対朝仕事行く前におはよう+返事が返ってくるのに まだ返ってきません。 そこで思ったのが私以外に女ができたのかなと思いました。 日曜日はいつもならデートしているんですけど、私の用事があり会えませんでした。 なので会えない時はメールで我慢してこの5ヶ月間やってきました。 それなのに昨日、朝に(8時)私がおはようと言ってずっと返事がなく 19時に充電が切れてたと返事が返ってきたんです。 彼は私とデートしているときは絶対携帯を出さないし、いつも充電器を持ち歩いてます。 私に飽きたんでしょうか? いつもしてくれていたことを急にしてこなくなっていて不安です。 ※ 喧嘩が終わった後、最後の女って決めたからと言われました。(信じませんが)そんなことを言うのにいつもしてくれていたことをしなくなるのってどう思いますか?
- 締切済み
- 恋愛相談
- miyu1832aaa
- 回答数2
- VB6での画像のサイズ変更に関して
お世話になります VB6での画像のサイズ変更に関して教えていただけないでしょうか 機能としては、画像を読み込み、指定サイズ枠内のサイズで一旦フォームに表示して画像を確認 問題なければ、エクセルに保存なのですが フォーム表示時にサイズを変更したにも関わらず、 エクセルに保存すると、元画像のサイズで保存されてしまいます。 表示と保存を同じtwip幅にするにはどのようにしたらよろしいでしょうか ******** 画像読み込み&リサイズ抜粋 Me.CDialog.CancelError = True Me.CDialog.Flags = cdlOFNExplorer + cdlOFNLongNames + cdlOFNHideReadOnly + cdlOFNNoChangeDir + cdlOFNFileMustExist Me.CDialog.Filter = strMessage(33) & "(*.jpg;*.bmp)|*.jpg;*.bmp" Me.CDialog.Filename = "" Me.CDialog.ShowOpen Me.CDialog.Flags = 0 If Err Then Err.Clear On Error GoTo 0 Exit Sub End If If Trim(Me.CDialog.Filename) = "" Then On Error GoTo 0 Exit Sub End If ' 画像の比率を保って、画像をセットする Me.PImage(Index).Stretch = False ' 一旦元の大きさで読み込み指定 Me.PImage(Index).Visible = False ' 一旦非表示にする Me.PImage(Index).Picture = LoadPicture(Me.CDialog.Filename) ' 縦方向基準縮尺変更 If Me.PImage(Index).Height > Report_PImageHei Then Me.PImage(Index).Stretch = True HWTemp = Me.PImage(Index).Height Me.PImage(Index).Height = Report_PImageHei Me.PImage(Index).Width = Me.PImage(Index).Width * Me.PImage(Index).Height / HWTemp End If ' 横方向基準縮尺変更 If Me.PImage(Index).Width > Report_PImageWid Then HWTemp = Me.PImage(Index).Width Me.PImage(Index).Stretch = True Me.PImage(Index).Width = Report_PImageWid Me.PImage(Index).Height = Me.PImage(Index).Height * Me.PImage(Index).Width / HWTemp End If ********* エクセルへの出力抜粋(上記と別関数) Clipboard.Clear Clipboard.SetData Me.PImage(i).Picture WB.ActiveSheet.Cells(YY1, XX1).Select WB.ActiveSheet.Paste pict = Selection.Name Clipboard.Clear
- ベストアンサー
- Visual Basic
- usami33
- 回答数1
- Excel. Vba
Vbaでセルの値だけコピーしたいのですが可能でしょうか? 数式を埋め込んだセルに、数値が入力されたセルを形式を値だけ貼り付けにして貼り付けても数式が消えてしまって値だけ入ってます。 数式は消さず、値だけコピーというのはvbaで実現可能でしょうか?
- 締切済み
- Visual Basic
- minaraiH
- 回答数4