Comment définir la zone d'impression sur la dernière ligne dans Excel?
Dans Excel, par défaut, il définira la feuille de calcul entière jusqu'à la dernière ligne avec des données comme zone d'impression. Mais dans ce cas, je veux imprimer de la colonne A à la colonne C jusqu'à la dernière ligne avec les données comme ci-dessous la capture d'écran, existe-t-il des moyens de le gérer?
Définir la zone d'impression sur la dernière ligne avec les données par sélection d'impression
Définir la zone d'impression sur la dernière ligne avec des données par VBA
Définir la zone d'impression sur la dernière ligne avec les données par sélection d'impression
Pour imprimer une sélection sur la dernière ligne avec des données, vous pouvez modifier la zone d'impression selon la sélection spécifiée avant l'impression.
1. Tenez Ctrl puis sélectionnez les colonnes à imprimer. Voir la capture d'écran:
2. Cliquez Déposez votre dernière attestation > Commercial, puis choisissez Sélection d'impression du Paramètres section. Voir la capture d'écran:
Définir la zone d'impression sur la dernière ligne avec des données
Ici, j'introduis un code macro pour faire cette opération également.
1. Activez la feuille que vous utilisez, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre, et cliquez sur insérer > Module. Voir la capture d'écran.
2. Collez le code ci-dessous dans le Module script et appuyez sur F5 clé pour courir.
VBA: définir la zone sur la dernière ligne
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Une boîte de dialogue apparaît pour vous rappeler de sélectionner la plage de colonnes que vous souhaitez utiliser. Voir la capture d'écran:
4. Cliquez OK, la zone d'impression a été définie.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!