Impression en paysage d'un fichier excel a partir de VB.Résolu

Question

Bonjour &#224; vous tous,
pourriez-vous m'aider sur ce petit programme? en effet, je souhaiterais pouvoir imprimer en mode paysage ma feuille excel &#224; partir de VB, j'ai cherch&#233; d&#233;j&#224; pas mal de solutions mais &#231;a ne marche pas.
merci d'avance pour les r&#233;ponses !
bien &#224; vous 

Set objexcel2 = CreateObject("Excel.Application")
Set objWorkbook = objexcel2.Workbooks.Open(App.Path & "" & Formulaire3bis.File1.FileName, Editable:=False, ReadOnly:=True)
.......
Private Sub cmdPrint_Click()
tab1 = Split(Formulaire5.Caption, "/")
With objWorkbook
 msgerreur = MsgBox("Voulez-vous imprimer tout le fichier Excel ?", vbExclamation + vbYesNoCancel, "Impression")
 If msgerreur = vbYes Then
'Imprimer tout le classeur
.PrintOut
Else
   If msgerreur = vbNo Then
      'Imprimer la feuille "Feuil1"
     .Worksheets(Trim(tab1(1))).PrintOut
   End If
End If
End With

Dehono

cs_pcvesoul · Accepted Answer

tu as essaye en creant une nouvelle macro, en mettant ta feuille excel en paysage puis en recuperant le code ?

dehono · Answer

Non, je n'ai pas essay&#233; et pour &#234;tre sinc&#232;re avec toi je ne sais pas comment faire 

Dehono

dehono · Answer

Un grand merci, ca fonctionne, c est ma premiere application VB que je realise donc je n ai pas encore les automatismes.
merci en tout cas ca fonctionne tres tres bien merci


Dehono

cs_pcvesoul · Answer

Tres pratique les macros. Idem pour les requetes sous Acces : tu fais ta requete directement dans la base puis tu recuperes le code.

@+

Impression en paysage d'un fichier excel a partir de VB.

4 réponses

Discussions similaires