Impression

[Biquette]

Bonjour le forum,

Voilà mon problème,

J'ai le module suivant:

Public Sub Imprimer()
On Error GoTo err
ActiveSheet.PrintOut
ActiveWorkbook.Worksheets(ActiveSheet.Name & "G").PrintOut
Exit Sub
err:
MsgBox "erreur"
End Sub

et j'aimerais que lorsque je clique sur le cadre pour lancer cette macro, j'ai le choix dans mon type d'impression (Brouillon / Normal / Supérieur) et si possible le choix de l'imprimante (je suis sur un réseau d'entreprise)

Merci d'avance

Biquette

 

[David2]

hello biquette,

essai cette syntaxe:

Application.Dialogs(xlDialogPrint).Show

@

 

[Biquette]

(Re) Bonjour à tous, bonjour David2,

David2, j'ai essayé et cela fonctionne merci pour tout.

J'ai oublié de mettre mon deuxième problème, si je peux le qualifier ainsi.

Je voudrais imprimer les colonnes B à G (ça j'ai réussi à le paramétrer).
Par contre sur les lignes, il faudrait que la macro détecte la première ligne où il n'y a rien d'écrit ou la dernière ou il y a quelque chose d'écrit.
A vous de voir

Merci d'avance pour vos réponses.

Biquette

 

[David2]

hlo,

en espérent que ça convienne

Dim prem As Integer
Dim der As Integer
Dim i As Integer

For i = 1 To 500
If (Cells(i, 7).Value = "" Or Cells(i, 2).Value = "") And (Cells(i + 1, 7).Value <> "" Or Cells(i + 1, 2).Value <> "") Then
prem = i
ElseIf (Cells(i, 7).Value <> "" Or Cells(i, 2).Value <> "") And (Cells(i + 1, 7).Value = "" Or Cells(i + 1, 2).Value = "") Then
der = i
End If
Next
Worksheets("Sheet1").PageSetup.PrintArea = "$A$" & prem & ":$C$" & der


@

 

[Biquette]

Re-Re Bonjour à tous,

Je te remercie pour ton aide David2

A plus

Biquette