名前 題名 ▼ yumapaさん > Mr.XRAYさん、TSさん > アドバイスありがとうございます。 > > [1085]で、Mr.XRAYさんからご回答頂いた > > > //============================================================================= > > // 印刷範囲の設定 > > //============================================================================= > > procedure TplExcelForm2.Button01Click(Sender: TObject); > > begin > > ExcelSheet.PageSetup.PrintArea:='A1:E20'; > > Self.OverWriteBtnClick(nil); > > end; > > の部分ですが、 > 印刷範囲をエクセル操作フォーム上から設定する方法として > マウスで印刷範囲としたい部分を範囲選択し、フォーム上の > Button1.Clickで印刷範囲設定を行いたいのです。 > 上記コードの 'A1:E20' の部分をマウスによる範囲選択に > よってセル番地を取得する必要があります。 > > エクセル操作フォームにおけるActiveCellプロパティで > セル番地を取得できるように、範囲選択したセル範囲の > 最終セル番地を取得するにはエクセルのマクロとして > 記載するしかないでしょうか? > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link