settaggio stampanti

Question

Buon giorno. In una cartella di lavoro tra i vari fogli ne uso due per la stampa: il primo denominato Ricevute per ricevuta fiscale usando  una Canon a getto d'inchiostro con formato carta mm 175 x 175 ; l'altro foglio denominato Diciture per la stampa delle marcatura vestiario usando una Epson tm220 b (munita di taglierina) formato carta rollpaper  mm77 x rotolo continuo . il problema: avvio del programma uso la Epson e tutto procede regolare  sia nelle marcature e taglio. appena uso la Canon per stampare una ricevuta fiscale  i valori impostati per la Epson mi saltano creando scontrini lunghissimi. chiedo come posso memorizzare i valori impostati per le due stampanti con codice VBA. grazie in anticipo. Claudio

Answer 1

Mauro grazie per la celere risposta, non so se è la stessa cosa : ho usato nel codice

Application.ActivePrinter = "EPSON TM-U220 Receipt su Ne04:" per selezionare automaticamente la stampante. premetto che ho eseguito precedentemente i settaggi nella proprietà della stampante, formato taglio si/no  etc.

Il problema consiste che quando uso la Canon  per stampare le ricevute fiscali le proprietà della Epson mi saltano come se Excel memorizza i settaggi della Canon utilizzata per ultima. Vorrei se possibile tramite codice VBA reimpostare i valori originale impostati nella proprietà della Epson. Non so se sono stato esaudiente e chiaro. Ciao Claudio

Answer 2

Buon giorno. In una cartella di lavoro tra i vari fogli ne uso due per la stampa: il primo denominato Ricevute per ricevuta fiscale usando  una Canon a getto d'inchiostro con formato carta mm 175 x 175 ; l'altro foglio denominato Diciture per la stampa delle marcatura vestiario usando una Epson tm220 b (munita di taglierina) formato carta rollpaper  mm77 x rotolo continuo . il problema: avvio del programma uso la Epson e tutto procede regolare  sia nelle marcature e taglio. appena uso la Canon per stampare una ricevuta fiscale  i valori impostati per la Epson mi saltano creando scontrini lunghissimi. chiedo come posso memorizzare i valori impostati per le due stampanti con codice VBA. grazie in anticipo. Claudio 

Guida del vb di Excel: Oggetto PageSetup

Dai un'occhiata alle proprietà.

Quindi puoi utilizzare una cosa come questa:

Public Sub m()

    Dim sh As Worksheet

    Dim sPrinter As String

  On Error GoTo RigaErrore

    sPrinter = ActivePrinter

    Application.Dialogs(xlDialogPrinterSetup).Show

    If ActivePrinter = "NomeDiUnaStampante" Then

        'qui i tuoi settaggi

    ElseIf ActivePrinter = "NomeAltraStampante" Then

        'qui i tuoi settaggi

    End If

RigaChiusura:

     ActivePrinter = sPrinter

     Set sh = Nothing

     Exit Sub

RigaErrore:

     MsgBox Err.Number & vbNewLine & Err.Description

     Resume RigaChiusura

End Sub