Path: csiph.com!news.mixmin.net!weretis.net!feeder1.news.weretis.net!news.solani.org!.POSTED!not-for-mail From: Greg Newsgroups: it.comp.lang.visual-basic Subject: Problema con la stampa di un file Date: Mon, 07 Mar 2016 18:47:52 +0100 Organization: solani.org Lines: 17 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-15" Content-Transfer-Encoding: 8bit X-Trace: solani.org 1457372874 8676 eJwFwQkRADAIAzBL42kBOTsY/iUsgVHY4QQdi425E/VMsTuu5lPZ6JXoV6mONmQdEdLmXP0h8BCx (7 Mar 2016 17:47:54 GMT) X-Complaints-To: abuse@news.solani.org NNTP-Posting-Date: Mon, 7 Mar 2016 17:47:54 +0000 (UTC) X-User-ID: eJwNyUEBACAIA8BMc4AYB5X1j6D3PWcgzrTwMJerxKZvMFeegR6oKTNUMqsF/lf6uoatuv0AHHcRkw== X-Newsreader: MesNews/1.08.06.00-it Cancel-Lock: sha1:FDLVimiYmvdSvOgxz1fVgvXeXDQ= X-NNTP-Posting-Host: eJwFwYENwDAIA7CXOhGCek4K5P8TZmfwYxeYRDq96n6QwZ4takfHVzwpc91bEZh+FYbE/AFVbxLc Xref: csiph.com it.comp.lang.visual-basic:18738 Con una sub creo un file di testo e poi lo apro con notepad. Tutto bene tranne che su una machcina con winxp, il file si apre in notepar ma è vuoto, sembra che l'istruzione Print non funzioni allo stresso modo. Non ho vicino in pc con xp, devo ricmpilare e spedire, ma se al posto di Print uso Put potrebbe cambiare qualcosa? s = "PREPARAZIONE: " & tPrepara.txt s = s & "NOTE: " & tNote.txt Dim F As Integer F = FreeFile Open App.Path & "\Istruzioni.txt" For Output As #F Print #F, s Close #F Shell "notepad.exe " & App.Path & "\Istruzioni.txt", vbNormalFocus -- Greg