|
▼宮崎 さん:
おはようございます。
>現在VBA内でフォームを作りその上でOfficeWebコンポーネント(スプレッドシート)
>を使いエクセルの表らしきものを表示させているのですが、
>そのスプレッドシートのみを印刷したい場合はどのようにすればいいのか
>かなり探してみたのですがどうしても見当たりませんでした。
私もスプレッドシートを利用したコードは多いです。
ただ、そのシート内容を直接印刷することはあまりなかったです。
スプレッドシートはバージョンによってかなり進化しているので
新しいバージョンのものは確認できませんが、Spreadsheet10.0で
確認すると、それらしいメソッドはありません。
Exportというメソッドがありますから、一度Excelブックとして保存後に
対象ブックを開いて印刷という手順で表示イメージと同じ内容が印刷可能です。
例は、コッマンドボタンクリック時に印刷する例です
Private Sub CommandButton1_Click()
Dim bk As Workbook
Spreadsheet1.Export ThisWorkbook.Path & "\exp.xls", ssExportActionNone
Set bk = Workbooks.Open(ThisWorkbook.Path & "\exp.xls")
bk.Worksheets(1).PrintOut
bk.Close False
End Sub
試してみてください。
|
|