1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Objet printer??? et taille

Résolu
cs_Sator
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
 - 29 sept. 2008 à 20:16
cs_Sator
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
 - 29 sept. 2008 à 21:04
Bonsoir à tous...
Ma question est la suivante : est-il possible de faire printer.feuille.height=122 mm.

merci pour votre attention!

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...
A voir également:

2 réponses

Réponse 1 / 2
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
 41
29 sept. 2008 à 20:29
Le mieux et le plus simple pour avoir la réponse étant encore de faire l'essai !

Et dans le cas présent, en faisant l'essai, tu aurais vu que sous VB6, l'objet Printer ne possède pas de propriété Feuille.
Quant à la définition de la taille du papier, elle se fait par la propriété éponyme en anglais, soit PaperSize.

A cette propriété, tu lui assigne une des différentes constantes existant , représentant les différentes taille de papier les plus courantes.
LA cas échant, si tu ne trouve pas celle qui te convient, tu te met sur "définie par l'utilisateur" et tu indique la taille de ton papier dans les propriétés Height (hauteur) et width (largeur).

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
3
Réponse 2 / 2
cs_Sator
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
29 sept. 2008 à 21:04
merci mai en fait j'ai trouvé entre temps alors que ça faisait un moment que je cherchais, il faut faire :

Printer.ScaleMode = vbMillimeters
Printer.PaperSize = vbPRPSUser' c'est cette ligne qui me posais problème merci pour ton attention...


Printer.Height = Val(Text11.Text)
Printer.Width = Val(Text12.Text)

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...
0