Word - Imprimir "ORIGINAL" y "COPIA"

   
Vista:

Imprimir "ORIGINAL" y "COPIA"

Publicado por Chema jmrcmd@yahoo.com.mx (1 intervención) el 16/01/2014 00:39:28
Soy médico y mis recetas las imprimo en WORD, ya no mando hacer recetarios. Diseñé mi formato y sólo cambio los datos del paciente y lo que le receto a cada uno, en el momento.
A veces imprimo dos recetas iguales (como si fueran original y copia) porque para vender ciertas medicinas las farmacias deben recoger una de ellas. Al mandar imprimir, escribo "2" en "Copias" y ya. Si le entrego dos, entonces el paciente ya no tiene que sacarle fotocopia o fotografía, lo que a veces es difícil o imposible. Ese es un inconveniente de ya no mandar imprimir recetarios con original y copia a una imprenta, como antaño.
La consulta es: quiero que la primera impresión diga "ORIGINAL" y la segunda "COPIA" (como las facturas o recetarios de imprenta). Primero se me ocurrió hacer un documento de dos páginas, repetir el formato en la segunda página y escribir ORIGINAL en la primera y COPIA en la segunda, pero como con cada paciente cambio los datos, me ha resultado muy laborioso y he cometido errores. Intenté cambiar el formato de numeración, pero no lo logré.
¿Cómo lo hago? Lo que quiero es que al mandar imprimir dos veces un mismo documento, en la primera impresión diga "ORIGINAL" y en la segunda impresión diga "COPIA".
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Imprimir "ORIGINAL" y "COPIA"

Publicado por Antoni Masana (158 intervenciones) el 20/01/2014 07:48:24
Puedes crear una macro que haga:

- imprima la primera hoja,
- ponga una "Marca de Agua" y poner COPIA,
- imprimir la segunda hoja,
- Quite la marca de agua

Esta es una macro de ejemplo.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Macro1()
'
' Macro1 Macro
'
'
    ' </> ---&--- </>   Imprime el original
 
    Application.PrintOut FileName:="", _
                         Range:=wdPrintAllDocument, _
                         Item:=wdPrintDocumentWithMarkup, _
                         Copies:=1, _
                         Pages:="", _
                         PageType:=wdPrintAllPages, _
                         Collate:=True, _
                         Background:=True, _
                         PrintToFile:=False, _
                         PrintZoomColumn:=0, _
                         PrintZoomRow:=0, _
                         PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
 
   ' </> ---&--- </>   Pone la marca de agua COPIA
 
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject945729166, "COPIA", _
                                                "Arial", 1, False, False, 0, 0).Select
 
    Selection.ShapeRange.TextEffect.NormalizedHeight = False
    Selection.ShapeRange.Line.Visible = False
    Selection.ShapeRange.Fill.Visible = True
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
    Selection.ShapeRange.Fill.Transparency = 0.5
 
    Selection.ShapeRange.Rotation = 315
    Selection.ShapeRange.LockAspectRatio = True
    Selection.ShapeRange.Height = CentimetersToPoints(5.29)
    Selection.ShapeRange.Width = CentimetersToPoints(15.86)
 
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 3
 
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter
    Selection.ShapeRange.Top = wdShapeCenter
 
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
 
    ' </> ---&--- </>   Imprime la copia con marca de agua
 
    Application.PrintOut FileName:="", _
                         Range:=wdPrintAllDocument, _
                         Item:=wdPrintDocumentWithMarkup, _
                         Copies:=1, _
                         Pages:="", _
                         PageType:=wdPrintAllPages, _
                         Collate:=True, _
                         Background:=True, _
                         PrintToFile:=False, _
                         PrintZoomColumn:=0, _
                         PrintZoomRow:=0, _
                         PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
 
    ' </> ---&--- </>   Quita la marca de agua
 
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar