probleme d'impressionRésolu

Question

Bonjours, dans mon application vb6, j'utilise l'option imprimer. LOrsque je clique sur mon bouton imprimer, il m'imprime un fichier excel.
Seulement mon probl&#232;me est que sa m'imprime 178 pages !!! Je voudrais en imprimer que 2, pourriez vous me dire ce qui ne va pas dans mon code ?

code:
Private Sub Print_Click()
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Analyseur_PC\relever_polluants.xls")
'wsExcel correspond &#224; la premi&#232;re feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    wbExcel.Close
    Set wbExcel = Nothing
    appExcel.Quit
End Sub

mortalino · Accepted Answer

Salut,

Pour ton 1er prob, essai ça :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, From:=1, To:=2

(From...To : ça veut dire impression de la page 1 à la page 2, propriétés adaptables à tes besoins)

@ ++
Mortalino

cs_Chuy · Answer

hum j'en profite egalement, j'ai un autre petit probl&#232;me,

J'ai cr&#233;er un bouton afin de pouvoir imprimer un graphique situ&#233; sur mon application. Ce graphique est imprim&#233; en pleine page, seulement il est &#233;tir&#233; et donc flou :s

Je voudrais savoir comment faire pour l'imprimer uniquement sur une demi page par exemple !!!
Merci d'avance

code utilis&#233;:
Private Sub impression_graphique_Click()
    MSChart1.EditCopy
    With Printer
      .PaintPicture Clipboard.GetData, 0, 0, .ScaleWidth, .ScaleHeight
      .EndDoc
    End With
End Sub

cs_Chuy · Answer

oui sa marche merci.

Mais saurais tu par hasard pour mon second probl&#232;me comment faire ? Le redimenssionnement du raphique ?

mortalino · Answer

Non, je ne peux t'aider sur l'impression du graphique, je ne suis pas assez calé.

Désolé et bon courage à toi !

Mortalino

cs_Chuy · Answer

ok  spa grave, merci beacoup comme m&#234;me !!! Ton aide sur l'impression m'a beaucoup aid&#233; :D

Probleme d'impression

5 réponses

Discussions similaires