1

Excel VBA でページを設定する必要があります...問題は、ページが縁なしでなければならないことです。したがって、左、右、上などのオプションの通常の方法だけでなく、プリンターを操作して境界線が表示されないようにする必要もあります...まあ、手動で行うことはできますが、マクロを記録したとしても...終了後、この問題について何も記録されていないことがわかりました....マクロの記録については助けを必要としません。私はそれを正しく行いました...マクロはそこにあります.. ...しかし、VBコードはまったくありません...手動でコーディングすることもできます..しかし、どのように...プリンターオブジェクトがありません....解決策はありますか?

4

1 に答える 1

0

次のコードが役立つと思います。

    Public Sub PrintButton1_Click()
    Dim CurrRange As Range, CurrRange2 As Range

    Set CurrRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:--")
    Set CurrRange2 = ThisWorkbook.Worksheets("rough").Range("A1:--")
    CurrRange2.ClearContents
    CurrRange.Copy
    CurrRange2.PasteSpecial xlPasteAllExceptBorders

上記のステートメントは、印刷したい形式でコンテンツを貼り付ける必要があります。

次に、次のコードを使用してページをセットアップし、印刷します

    With PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    End With
    CurrRange2.PrintOut 1, 1, 1
    End Sub
于 2012-04-13T07:07:01.970 に答える