Y at-il quelqu'un qui puisse me dire comment arriver =E0=20
lancer l'impression d'un fichier texte (Bilan.Txt par=20
exemple) =E0 partir de d'une Application VB.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut!
Pour faire simple, tu peux appeler la fonction ShellExecute() et appeler l'impression du fichier :
' Module1 '*** Private Const SW_HIDE As Long = 0
Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long
Private Sub Main() Call ShellExecute(Me.hwnd, _ "print", _ "c:file.txt", _ vbNullString, _ "c:", _ SW_HIDE) End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Iddir d'Alger" wrote in message news:079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
Salut!
Pour faire simple, tu peux appeler la fonction ShellExecute() et appeler
l'impression du fichier :
' Module1
'***
Private Const SW_HIDE As Long = 0
Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long
Private Sub Main()
Call ShellExecute(Me.hwnd, _
"print", _
"c:file.txt", _
vbNullString, _
"c:", _
SW_HIDE)
End Sub
'***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Iddir d'Alger" <anonymous@discussions.microsoft.com> wrote in message
news:079f01c3b80f$30c62ca0$a501280a@phx.gbl...
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à
lancer l'impression d'un fichier texte (Bilan.Txt par
exemple) à partir de d'une Application VB.
Pour faire simple, tu peux appeler la fonction ShellExecute() et appeler l'impression du fichier :
' Module1 '*** Private Const SW_HIDE As Long = 0
Private Declare Function ShellExecute _ Lib "shell32.dll" _ Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long
Private Sub Main() Call ShellExecute(Me.hwnd, _ "print", _ "c:file.txt", _ vbNullString, _ "c:", _ SW_HIDE) End Sub '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Iddir d'Alger" wrote in message news:079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
moi
Tu peux toujours le charger dans un richtextbox et l'imprimer..... regarde ce code http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q146/0/22.asp&NoWebContent=1
"Iddir d'Alger" a écrit dans le message de news:079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
Tu peux toujours le charger dans un richtextbox et l'imprimer.....
regarde ce code
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q146/0/22.asp&NoWebContent=1
"Iddir d'Alger" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:079f01c3b80f$30c62ca0$a501280a@phx.gbl...
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à
lancer l'impression d'un fichier texte (Bilan.Txt par
exemple) à partir de d'une Application VB.
Tu peux toujours le charger dans un richtextbox et l'imprimer..... regarde ce code http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q146/0/22.asp&NoWebContent=1
"Iddir d'Alger" a écrit dans le message de news:079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
louis
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
"Iddir d'Alger" a écrit dans le message de news: 079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
Salut à tous
Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante
que je veux utiliser sans modifier l imprimante par defaut de windows?
Merci
"Iddir d'Alger" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 079f01c3b80f$30c62ca0$a501280a@phx.gbl...
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à
lancer l'impression d'un fichier texte (Bilan.Txt par
exemple) à partir de d'une Application VB.
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
"Iddir d'Alger" a écrit dans le message de news: 079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
Zoury
Salut! :O)
Utilise l'objet global Printer et la collection global Printers.. Tu boucle la collection de Printers jusqu'à ce que tu trouves celle qui te convient et ensuite tu la sélectionnes en la "settant" dans l'objet printer.. Quelque chose comme ça :
<non testé> '*** Private Function SetPrinter(ByRef sPrinterName As String) As Boolean
Dim prn As Printer
For Each prn In Printers If (prn.DeviceName = sPrinterName) Then Set Printer = prn SetPrinter = True Exit For End If Next prn
Merci de poster les réponses au groupe afin d'en faire profiter à tous "louis" wrote in message news:bqg2pd$1hl$
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l
imprimante
que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
"Iddir d'Alger" a écrit dans le message de news: 079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
Merci d'avance.
Salut! :O)
Utilise l'objet global Printer et la collection global Printers.. Tu boucle
la collection de Printers jusqu'à ce que tu trouves celle qui te convient et
ensuite tu la sélectionnes en la "settant" dans l'objet printer.. Quelque
chose comme ça :
<non testé>
'***
Private Function SetPrinter(ByRef sPrinterName As String) As Boolean
Dim prn As Printer
For Each prn In Printers
If (prn.DeviceName = sPrinterName) Then
Set Printer = prn
SetPrinter = True
Exit For
End If
Next prn
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"louis" <louisun27@wanadoo.fr> wrote in message
news:bqg2pd$1hl$1@news-reader1.wanadoo.fr...
Salut à tous
Ayant deux imprimante sur mon ordinateur; comment selectionner l
imprimante
que je veux utiliser sans modifier l imprimante par defaut de windows?
Merci
"Iddir d'Alger" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 079f01c3b80f$30c62ca0$a501280a@phx.gbl...
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à
lancer l'impression d'un fichier texte (Bilan.Txt par
exemple) à partir de d'une Application VB.
Utilise l'objet global Printer et la collection global Printers.. Tu boucle la collection de Printers jusqu'à ce que tu trouves celle qui te convient et ensuite tu la sélectionnes en la "settant" dans l'objet printer.. Quelque chose comme ça :
<non testé> '*** Private Function SetPrinter(ByRef sPrinterName As String) As Boolean
Dim prn As Printer
For Each prn In Printers If (prn.DeviceName = sPrinterName) Then Set Printer = prn SetPrinter = True Exit For End If Next prn
Merci de poster les réponses au groupe afin d'en faire profiter à tous "louis" wrote in message news:bqg2pd$1hl$
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l
imprimante
que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
"Iddir d'Alger" a écrit dans le message de news: 079f01c3b80f$30c62ca0$
Bonjour,
Y at-il quelqu'un qui puisse me dire comment arriver à lancer l'impression d'un fichier texte (Bilan.Txt par exemple) à partir de d'une Application VB.
